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Le chemin des ecoliers, tel est souvent le pas- 
sage par le Bureau. Pour changer d'application, il suffit 
aujouid'hui d'appeler l'accessoire "Raccourci". Api£s avoir 
confirm^ votre intention de quitter le programme en eours, 
one fenetre de selection apparait et un simple double-clic 
vous fait passer de Basic a ScrccnMakcr, de MacPaint a 
Multiplan et, pourquoi pas, de MacForth a MacPoker. . . 

Des avantages : 

Sllf UTl 128 Ko, ne pas passer par le Finder e'est 
6viler des manipulations gourmandes en temps et 
en patience, 

SllF UTl 512 Ko, les applications disposcnt dc toutc la 
place memoire. 

Sur Un Mac PIUS, les changements sont quasi- 
instantanes et les 768 Ko de memoire cache sont 
disponibles. 

Compatible avec Switcher : vous pourrez 
changer Tune ou 1'aulre des applications gerces par 
Switcher directementparcet accessaire. 

Compatible disques durs : memc si votrc dis- 
que dur est partage via AppleTalk, . . 

DispOnible a tout moment, "Raccourci" est toujours 
utilisable car il ne necessite pas une installation 
prealable des applications (sait-on toujours a 
1'avance quelles appbeations seront necessaires a 
un travail donne'?). 

Avec Pom's, travaillez directement ! 



H propos de MacDrau.'. 
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Diversite 
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2,5 
5,2 
11,5 
29,6 
36,2 
15,0 

96,0 
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40.6 

17,3 
32,2 
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Basic 
Paster . 
Forth : 
Logo : 
H. 6t>U2 : 
63000 : 
Lisp : 
Cobol : 
Fortran : 
PLE : 
fiPL : 
Prolog ; 
C: 

! - de 2 H : 
! 3 - 8 H : 
I ( - 1 6 H : 
♦lit: 1 6 H : 



98,4 
32,6 
2,2 
13,2 
42,2 
4,4 
0,3 
1.1 
4,4 
0,0 

0.3 
o.o 
0,0 

2,4 
51 ,0 
32,1 
i 4.5 
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CP/M 



66,0 
45,4 
9,5 



80 colonnes 
BD c. etendue 
c. 280-CP/M 
carte souris 
Uistjue dur* 

deoutartt : 
intermediate : 
amateur auertf ; 
haul niueau : 



16,7 
58,S 
25,1 
34,6 
9,8 

5,2 
40.0 
46,0 



ImagcLUritor : 51,2 
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Epson : 1 1,5 
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autre : 1 1,5 
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j Interet prog. 
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3,97 
3,79 
3,43 
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30,4 

Interet perfng ; 3,50 
micro-infos : 3,76 
dlsquettes : 4,1 2 
(Notes entre et 51 
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*Dlsques durs : 9,8 7> pour I ensemDie des machine* (Mac o tipple //) 



Void done ci-contre les resuftats 
chiffres de notre recent sondage. Les 
730 lecteurs qui nous ont repondu ne 
permettent pas de tirer une valeur 
representative (au sens statistique) de 
ces chiffres ; nous en tirons bien en- 
tendu une tendance, confortee par le 
fait que les resultats sont similaires a 
ceux del'an passe. 

Toujours aussi pcu dc femmes - 
1,9 % des bulletins - lisent Pom's. 
Cela correspondrait-il a la proportion 
de femmes qui s'interessent a 1'in- 
formatique 7 Notons loutefois que 
nos 'auteuses 1 se font aussi prolifi- 
ques et assidues que nos auteurs. 
Parmi nos lecteurs, 14 % ont un 
Macintosh, 91,8 % out uu Apple ][, 
6,03 % ayant les deux appareils. La 
repartition a 1'interieur de la famille 
Apple ][ totalise plus de 100 %, cer- 
tains ayant deux appareils de ee type, 
un lecteur sur deux y ennsacrant 
entir 3 et 8 heures chaque semaine. 
Dans les grandes tendances, il faut 
aussi remarquer que 58 % des pos- 
sesseurs d'Apple 11 ont une carte 80 
colonnes etendue et 45 % utiltsent 
regulierement ProDOS, ce demier 
point s'accompagnant de la diminu- 
tion des ][+ au profit des Ik. 
Un lecteur sur trois possede une 
souris Apple //, ce qui nous ouvre de 
nouveaux horizons pour la variete 
des programmes que nous vous 
proposerons. 

Moins de debutants, plus de lecteurs 
de niveau intermediate et 
d'amateurs avertis ; y sommes-nous 
pour quelque chose ? 

Au-dela de la simple mise a plat des 
chiffres, ce type d'enquete nous 
permet, par vos remarqucs (non 
quantifiables) de mieux orienter la 
revue. Bien sur, la diversite des 
reponses nous laisse parfois dans une 
indecision proche de la perplexite 
mais nous savons resler a 1'ecoute : 
un lecteur nous a sugger^ de mettre 
les sources assembleur en format 
TEXT sut la disquette pour que 
chacun puisse le charger : chose faite 
des le numero 24, 



II est vrai que vos compliments nous 
font rougir (Continucz, meillcurc 
revue, etc.) mais il est egalement vrai 
que vos reproches sont indispen- 
sablcs {Pas asscz d' explications, 
soyez plus clairs, il m'a fallu trois 
jours pour comprendre tel article...) ; 
nous oricntons la barrc dans lc sens 
d'une plus grande limpidite par nos 
'encadrcs-mode d'emploi' - que 
vous saluez unanimement - et une 
presentation plus simple. 
Sans aucune valeur representative, 
mais juste pour Ee plaisir, void 
quelques unes des remarques - ar- 
bitral rement choisies - que vous 
nous avez adressees : 

Ce que vous preferez : 

«Rever que j'ai tout compris, 

Les applications type 'composeur' 

(cite" au moins une fois sur cinq), 

Les uulitaircs EPE, MAX, 

Les applications pratiques (Mul- 

tiplan), 

Les "poms" entre DOS et ProDOS, 

L'editorial {!), 

Le earner Mac, 

L' absence tie publicite, 

Les utilitaires a placer dans la 

pomme du Mac, 

Ce qui pallie l'insuffisance des 

documentations Apple, 

Les articles pedagogiques de G. 

Michel, 

La couverture et le prix, 
Le serieux des programmes.* 



Ce que vous detestez : 

«Les autres (!}, 

Tons vos assembleurs car j'ai 'The 
Assembler', 

La redaction erudite d' articles 
difficilement dechiffrables, 
Leprix, 

Les anglicismes et lc jargon infor- 
matique, 

Attendre deux mois entre parutions, 
Pas assez de publicite, 
Ne rien avoir a crittquer, il n'y avail 
que la presentation mais vous l'avez 

changde, 

La publicite deguisee (NDLR : en 
quoi ?), 

Avoir quatre lignes duplications 
pour quatre pages de source, 
Ce qui n'est pas programmation 
(Multiplan).» 

Ce qu'il faut developper ; 

^Intelligence artificielle, 

Les astuces, 

Un encadre explicatif pour chaque 
article, 

Applications type 'fer a souder*, 
Applications sur Multiplan, Chart, 
Draw, 
Rien, 

Le courrier des lecteurs, 
Mettez des organigrammes, 
La robotique, 

Les logiciels duplication : compte 
bancaire, 

Trues sur la communication.* 
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Editorial 



Apple Expo a la Villette represente un pas dc plus dc la part d'AppIe vers le professionnalismc ; 
une ambiance beaucoup plus proche de celle du Sicob, et urie domination tranche et massive du 
Macintosh, Certes, on parvenait encore a voir des Apple II mais on semblait etre dans I'attente 
du fameux //x, surnomme par certains le Ram bo car, tout en restant compatible avcc le He et le 
//x, il devrait tourner trois fois plus vite. 

Par rapport au Sicoh d'avril, nous avons vu relativemcnt peu de produits nouveaux. A signaler 
toutefois pour I'Apple II les excellentes possibility graphiques du programme Extasie de 
Crealude - et dunt les droits viennent d'etre acquis par Apple un utilitaire prometteur pour 
les manipulations en ProDOS, MouseFiler, developpe par Froggy Software et, pour les posses- 
seurs de Macintosh, la presentation chez ACI de WriterPlus, dont 1'ambition est de remplacer 
d'un coup tous les MacWrite et autres Word, I'apparition chez Microsoft du Flight Simulator, 
la version Mac depassant nettement la version tradttionnelle de ce celebre logicicl dc simulation. 

Dans cc numero, nous vous presentons deux nouvelles disquettes ; Tune pour I'Apple // est un 
recueil de trois jeux de reflexion (intense,,.), ceuvre de Sylvie Gallet deja auteur de programmes 
pour Pom's, La deuxieme, pour le Macintosh, est un accessotre de bureau qui accelere sen- 
siblement les passages d'une application a l'autre : l'art et la maniere de passer de MacPaint a 
MacWrite pour y coller un dessin SANS devoir passer par le bureau electronique. Signe J.-U 
Bazanegue. 

Ce numero, certainement influence par vos nombreuses remarques a I 'occasion de notre son- 
dage, est tres ouvert. Des programmes tout Basic, d'un acces simple, des programmes en as- 
sembleur moins evi dents a saisir mais d'une utilisation aussi aisee, un programme en Pascal 
inspire par les espaces non entiers abordes dans le numero 22, des ascenseurs Basic, un acces- 
soire de bureau et un micro-Finder pour le Macintosh, et pourquoi pas de 1'informafinue hard 
de type "fer a souder et pince coupante". . . 

Avouuns-le, certains a bonnes out recu le precedent numero de leur revue preferee apres mise en 
kiosque, le routage ayant cte hop tardif. Mea culpa, on ne nous y reprendra plus ! 

HerveThiriez 
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Yves W outers 



Le programme que 
nous vous proposons 
ici, s'il ne presente pas 
de prouesse du point 
de vue de la progiammation, 
interessera neanmoins un grand 
nombre de lecteurs. 

II s'agit d'un jeu educatif qui 
affiche un verbe anglais, ct vous 
demande de Iui communiquer le 
preterit, le participe passe et la 
traduction frangaise. Le pro- 
gramme corrige automatiquemeiit 
vos responses incorrectes (ou 
inexistantes) et affiche votre score 
a la fin de chaque sequence (de 
trois a douze questions). 



Programme 

'TPS PRIMITIFS 
ANGLAIS' 



5 REM tC) 19S4 ****' 

7 REM UOUTERS }•.»»«' 

8 REM — BELtSIOUE — ** 

20 REM TEST ANGLAIS 

30 DIM VERBES (196,51 
40 DIM DEJA(ISS) 
50 DIM OK (196) 
60 HOME : VTAB 10 

70 PRINT "PATIENCE: J'APPRENDS LES T 

EMPS PRIMITIFS. * 
SO FOR <J = 1 TO 191 
90 FOR K = I TO 5 STEP 1 
100 READ VERBES t 'J, Kl 
110 NEXT K 
120 NEXT J 
210 HOME : VTAB 8 

220 PRTNT "CWRTF.N VOllT.F-Z-VOtK FATRR 

D ' EXERC ICED? " 
2 JO PRINT "MINIMUM -3 ET MAX1MUM=12" 

240 INPUT EX 

250 IF EX < 3 OR EX > 12 GOTO 230 
260 B2 = 0;B3 = 0;B4 = 
270 FOR J = 1 TO 191:DEJA(J) = 0; NE 
XT .1 
HOME 

PRINT "1NF1N PRETERIT PARTICIPE 
TRADUCTION" 

print " (to> PASSE 

FRANCA1SE' 



310 PRINT !&• 



320 FOR I = 1 TO EX 
330 IF TB « 131 THEN PRINT ; PRINT 
"BRAVO'VOUS AVEZ TOUT REUSSI 

PRINT *JE N>A1 PLUS D 'EXERC1CES 

A VOUS PROPOSER. PRINT : PR1N 
T "POU POURSUIVRE, PRESSEZ ONE TO 
UCHE"; GET XS-II m 1:1 = EX;EX - 

II - 1: COTO 800 
340 V = INT ( RND (11 • 191) + I 
350 IF DEJA U) - J GOTO 340 
360 JIF.ra (.1) = 7 
370 IF OKU) - 3 GOTO 34 
330 TS - TE + 1 
390 PRINT VERBES (J, 1) ; 
400 PV - PEEK (37) + J 
410 VTAB 2: HTAB 33: INVERSE ; PRINT 

TE/t NORMAL : VTAU PV 
420 OKI J} b 5 

430 REM QUESTION S'JR LE PRETE 

RIT, 

440 HTAB 8: INPUT "",-R2S 

450 IF R2S < > VERBES (J, 2) GOTO 510 

460 REM BONNE REPONSE (PASSE SIMP 

LE) 

470 B2 = B2 + 1 

480 T2 = T2 + 1 

490 OX (J) = OKU) 4-1 

500 GOTO 550 

510 REM -ERREUR (PASSE SIMPLE) 

HTAB 8: VTAB PV 
CALL - 9SB 

INVERSE : PRINT VERBES (J,2)j: NO 
RMAL 

REM QUESTION SUR LE PARTICIPE 

PASSE 

HTAB 17: VTAB PV: INPUT "";R3f 
IF R3S < > VERBES u, J) GOTO €30 

REM BONNE REPONSE (PARTICIPE P 

ASSE) 
590 B3 = B3 + 1 
£00 T3 = T3 + 1 
£10 OX (J) - OKU) * I 
620 GOTO 670 

630 REM ERREUR (PAKTIC2P 

E PASSE) 

640 STAB 17: VTAB PV 
650 CALL - 90S 

660 2WVEHSE PRINT VERBE? U, 3);: NO 
RMAL 

670 REM QUESTION SUR LA TRADUCTIO 

N FRANCAISE 

S80 HTAB 27: VTAB PV: INPUT ",-R4S 
690 IF R4$ < > VERBES IJ, 4) AND R4S 

< > VERBES (J, 5) GOTO 760 
700 REM BONNE REPONSE (TRAD0 

CTION) — - 



520 
530 
540 

550 

5 60 
570 
= or: 



280 
290 



300 



710 B4 = B4 + ! 

720 T4 — T4 i 1 

730 OKU! = OUt J) * 1 

740 IF OKU) - 3 THEN TB = TB + 

750 Gf>T(> snn 

760 REM ERREUR (TRADUCTION) - 



770 HTAB S7: VTAB PV 
780 CALL - 358 

790 INVERSE : PRINT VERBES (J, 4) NOR 

MAL 
800 NEXT I 

610 PRINT : PRINT : PRINT "ICI :"S 

820 HTAB 8; PRINT B2; "/"? EXf 

830 HTAB 17: PRINT B3i'f'iEX; 

840 HTAB 27l PRINT B1l"/"/EX 

850 PRINT "TOTAL: "f 

8 60 HTAB 8; PRINT T2;'/»;TE; 

870 NT AH 17: PRINT T3;"/";TF.: 

880 UTAH 27; PRINT T4f"/",-TE 

890 PRINT : PRINT "POOH VOIR L'ENSEM 

BLE DE VOS SUCCES, TAPES S , * 
300 PRINT "SINON, TAPEZ UN CAXACTERE 

QUELCONQUE, » 
5.10 GET XS: NOME. 
920 IE X$ > < "S" COTO 970 
930 FOR J - 1 TO 191 
9 4 PRINT OX U) / " "VERBES U,l), 
950 NEXT J 
960 GOTO 890 

970 VTAB 23; PRINT "V0ULE2-VOIJS 

l.UNE NOirVELLE SERIE 
980 PRINT " 2.ARRETEK 

■J 

990 GET DECISS 

1000 IF DECISS - "1" 00T0 210 
1010 IF DECISS = "2" THEN HOME : GOT 
1030 

1020 HOME : PRINT 'REPONDE2 PAR 1 01} 

2 , S.V.P. GOTO 970 
1030 HOME 
1190 END 

H PS DATA ASIDE, ABODE, ABOPE, DENEVRER 
, DEMEURER 

1196 DATA ARISE,AROSE, ARISEN, SB LEVE 
R,SF T.F.WR 

1197 DATA AHAKE r ANOKE, AWAKEN, S'EVEIL 
LER, S 1 EVEILLER 

1200 DATA BE, HAS, BEEN, ETRE, EXISTER 
J 209 TiA Th REJt 0, ROUP, RORNF, PORFRR r POS 
TER 

1204 DATA BEAT, BEAT, BEATEN, BA ITRE, BA 
TTRE 

1210 DATA BECOME, BECAME, BECOME, PEVEN 

IR,DEVENIH 
1212 DATA BEFALL, BEFELL, BEFALLEN, ARR 

IVER A,ARRIVER A 
1214 DATA BEGET, BEGOT, BEGOTTEN, ENCEN 

DRER, ENGENDRER 
1220 DATA BEGIN, BEGAN, BEGUN, CQmENC 

ER, COMMENCER 
1222 DATA BEHOLD, BEHELD, BEHELD, CONTE 

MtLER, CONTEMPLER 
1224 DATA BEND, BENT, BENT, C0URBER, COU 

1226 DATA BEREAVE, BEREFT, BEREFT, CR1V 
ER, PRI VEH 

122% DATA BESEECH, BESOUGHT, BESOUGHT, 

SUPPLIER, SUPPT. rPR 
J 229 DA TA BID, DID, BID, ORDONNER, ORDON 
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NEK 1444 
1230 DATA BIND, BOUND, BOUND, L1ER, HOVE 

R 1450 
1232 DATA BITE, BIT, BITTEN, MQRDRE, MOP. 

DRE 1 452 

1234 DATA BLED, BLED, SLED, SAIGNER, SA 

IGNER 1 454 

1236 DATA BLOW, BLEU, BLOWN, SOUFFLES, S 

OUFfLZR 14 SO 

1240 DATA BREAK, BROKE, BROKEN, CASSER, 

RGMPRE 1470 
1245 DATA BREED, BRED, BRED, ELEVER, ELE 

VER 1472 
1250 DATA BRING, BROUGHT, BROUGHT, APPO 1474 

RTF.R, AMENER 
1260 DATA BUILD, BUILT, BUILT, BATIR, CO 1480 

NSTRU1RE 

1262 DATA BURN, BURNT, BURNT, BRULER, BR 1490 

ULER 1455 
1264 DATA BURST, BURST, BURST, ECLATER, 

ECLATER 1 500 

1270 DATA BUY, BOUGHT, BOUGHT, ACHETER, 

ACHETER 1510 
1275 DATA CAST, CAST, CAST, JETER, JETER 
1280 DATA CATCH, CAUGHT, CAUGHT, ATTRA 1520 

PER,SAISIR 1530 
1285 DA TA CHIDE, CH TO, CH mnv.N, GRQNDER 

, GRONDER ! 532 

1290 DATA CHOOSE, CHOSE, CHOSEN, CHOISI 

R,CHOISIR 1534 
1292 DATA CLEAVE, CLEFT, CLEFT, FENDRE 

, FENDRE 1 540 

1294 DATA CLING, CLUNG, CLUNG, S ' ACCROC 

HER,S'ACCRQCHER 1550 
1296 DATA CLOTHE, CLED, CLAD, VETTR, VET 

1R 1SC0 
1300 DATA COME, CAME, COKE, VEN1 K, VEN1 R 
1310 DATA COST, COST, COST, COUTER, COUT 1570 

ER 

1312 DATA CREEP, CREPT, CREPT, RAMPES, R 1580 
AMPER 

1314 DATA CROK, CREN, CROWED, CHANTER, C 1582 
BANTER 

1320 DATA CUT, CUT, CUT, COUPER, COOPER 1584 

1322 DATA DARE, DURST, DARED, USER, OSES 

1324 DATA DEAL, DEALT, DEALT, D I STRlBUE 1590 

R,DISFRIBDER 
1326 DATA DIG, DUG, DUG, CREUSER, CREUS 1592 

ER 

1330 DATA DO, DID, DONE, FAIRE, FAIRE 1594 
1340 DATA DRAW,pREW,I3RAWN,DESSINER,T 1600 
IRER 

1350 DATA DREAM, DREAMT, DREAMT, REVER, 1S02 
REVEV 

1360 DATA DRINK, OBANK, DRUNK, BOIRE, BO 1604 
IRE 

1370 DATA DRIVE, DROVE, DRIVEN, POUSSER 1610 
, CONDUTRE 

1375 DATA DWELL, DWELT, DWELT, DEMEURER 1G2Q 
, DEMEURER 

1380 DATA EAT, ATE, EATEN, MANGER, MANGE 1630 
R 

1390 DATA FALL, FELL, FALLEN, TOMBER, TO 1040 
MBER 

1400 DATA FEED, FED, FED, NOURR IB, ALIME 1642 
NTER 

1410 DATA FEEL, FELT, FELT, SEtiTIR, RESS 1644 
ENTIR 

1420 DATA FIGHT, FOUGHT, FOUGHT, COMBAT 1650 

TRE,SE BATTRE 
1430 DATA F IND, FOUND, FOUND, TROUVER, T 1660 

ROUVER 

1432 DATA FLEE, FLED, FLED, FUIR, FV1R 1670 
1434 DATA FLING, FLUNG, FLUNG, LANCER, L 

ANCER 1 681} 

1440 DATA FLY, FLEW, FLOHN, VOLER, VOLER 
1442 DATA FORBEAR, FORBORE, FORBORNE, S 1682 
•ABSTENIR, S 'ABSTENIR 



DA TA FORBID, FORBADE, FOR BIDDEN, D 
EFENDRE, DEFENDRE 

DA TA FORGET, FORGOT, FORGOTTEN, OU 
BLIER, 0UBL1ER 

DATA FORGIVE, FORGAVE, FORGIVEN, f 

ARDONNER, PARDONNER 

DATA FORSAKE, FORSOOK, FORSAKEN, A 

BANDONNER, ABANDONNER 

DA TA FREEZE, FROZE, FROZEN, GELER, 

CONGEIER 

DATA GET, GOT, GOT, 08TEN1R, DEVENI 
R 

DA TA GILD, GILT, GILT, DORER, DORER 
DA TA GIRD, GIRT, GIRT, CEINDRE, CEI 
NDRE 

DATA CIVE, CAVE, GIVEN, D0NNER, DON 
NER 

DATA GO, WENT, GONE, ALLER,A LLER 
DATA GRIND, GROUND, GROUND, MQUDRE 
,MOUDRE 

DATA GROW, GREW, GROWN, CROITRE,GR 
ANDIR 

DATA RANG, HUNG, HUNG, PENDRE, PEND 
RE 

DATA HAVE, HAD, HAD, AVOIR, AVOIR 
DA TA HEAR, HEARD, HEARD, ENTENDRE, 

ntiTR 

DATA HEAVE, HOVE, HOVE, SE SOULEVE 
k, SE SOULEVEk 

DA TA BEN, HEWED, HEWN, TAILLER, TAI 
LLER 

DATA BIDE, HID, HIDDEN, CACHER, CAC 
HER 

DATA HIT, HIT, HIT, FRAPPER, FRAPPE 
H 

DA TA HOLD, HELD, HELD, TEN I li, MAI NT 
EN1K 

DATA HURT, HURT, HURT, BLESSER, FAI 
RE SfXlFFRTR 

DATA KEEP, KEPT, KEPT, CARDER, CARD 
ER 

DATA KNEEL, KNELT, KNELT, S 'AGENDO 

TLLER, S •AGENOUILLER 

DATA KNIT, KNIT, KNIT, TRICDTER, TR 

1 CUTtlR 

DATA WON, KNEh, KNOWN, CONNAITRE, 
SAVOTR 

DA TA LAD E, LADED, LADEN, CHARGER, C 
tWKtifcK 

DATA LAY, LAID, LAID, POSER, POSER 
DATA LEAD, LED, LED, CONDII TRF, DIRT 
GER 

DATA LEAN, LEANT, LEANT, SE PENCHE 
R,SE PENCHER 

DATA LEAP, LEAPT, LEAPT, BONDIR, BO 
MDIR 

DATA LEARN, LEARN?, LEARNT, APPKEN 
ORE, APPRENDRE 

DA TA LEA VE, LEFT, LEFT, LAISSER,QU 
ITTER 

DATA LEND, LENT, LENT, PRETER, PRET 
ER 

DATA LET, LET, LET, LAISSER, PERMET 
THE 

DATA LIE, LAY, LAIN, ETRE COUCHE, E 
TRE COUCBER 

DATA LIGHT, LIT, LIT, ALLUMER, ALUM 
ER 

DA TA LOSE, LOST, LOST, PERDRE, PERD 
RE 

DATA MAKE, MADE,MADB, FAIRE, FABRI 
OVER 

DATA MEAN, MEANT, MEANT, SIGNIFIER 
,VOULOIR DIRE 

DATA MEET, MET, MET, RENCONTRER, RE 
NCONTRER 

f5*Ti MISTAKE, MISTOOK, MISTAKEN, S 
E TROMPER,SE TROMPER 



1 684 DA TA MOW, MOWED, MOWN, FAUCHF-R, FM1 
CHER 

1590 DATA PAY, PAID, PAID, PArHR, PAYER 
1695 DATA PEN, PENT, PENNED, PARQUER, PA 
RQUER 

1 700 DATA PUT, PUT, PUT,METTRE, PLACER 
1710 DATA READ, READ, READ, LIRE, LIRE 
1 712 DATA REND, RENT, RENT ,DECHIRER, BE 
CHIRER 

1714 DATA RID, RID, RID, DERARRASSER, DE 
BARRASSER 

1720 DATA RIDE, RODE, RIDDEN, ALLER A C 

REVAL, ALLER A VELO 
1730 DATA RING, RANG, R UNO, 30NNER, 30NN 

ER 

1740 DATA RISE, ROSE, RISEN, SE LEVER, S 
E LEVER 

1 750 DATA RUN, RAN, RUN, CQURIR, CQURIR 
I 755 DATA SAN, SAWED, SAWN, SCIER, SCIER 
1760 DATA SAY, SAID, SAID , DIRE, DIRE 
1 170 DATA SEE, SAWN, SEEN, VOIR, VOIR 
1772 DATA SEEK, SOUGHT, SOUGHT, CHERCHE 

R, CHERCHER 
1 774 DATA SEETHE, SOD, SODDEN, BOUILLIR 

, BOUILLIR 

1 780 DA TA SELL, SOLD, SOLD, VENDRE, VEND 
RE 

1 790 DA TA SEND, SENT, SENT, F.NVOYF.R, ENV 
OYER 

1800 DATA SET, SET, SET, POSER, PLAVER 
1810 DATA SHAKE, SHOOKE, SHAKEN, SECOUE 
R, SF.COUER 

1812 DA TA SHEAR, SHORE, SHORN, TONDRE, T 
ONDRE 

1814 DATA SHED, SHED, SHED, VERSER, VER S 
ER 

1 820 DATA SHINE, SHONE, SHONE, BRILLER, 
LUIRE 

1 825 DATA SHOE, SHOD, SHOD, CHAUSSER, CH 
AUSSER 

I 830 DATA SHOOT, SHOT, SHOT, T1RER, DONN 

ER UN COUP DE PIED 
1840 DATA SHOW, SHOWED, SHOWN, MONTRER, 

EXPOSES 

1842 DATA SHRED, SHRED, SHSED, MONTRER, 
MONTER 

1844 DATA SHRINK, SHRANK, SHRUNK, SE RE 

TSECIR, SE RETREC1R 
1846 DATA SHRIVE, SHROVE, SHRIVEN, CONF 

ESSER, CONFESSER 
1 350 DATA SHUT, SHUT, SHUT, FERMER, CLOR 

E 

IB 60 DATA SING, SANG, S UNS, CHANTER, CHA 
NTER 

18S5 DA TA SINK, SANK, SUNK, ENFONCER, EN 
F0NCE5 

1870 DATA SIT, SAT, SAT, ETRE ASSIS,ET 
RE ASSIS 

1875 DATA SLAY, SLEW, SLAIN, TUER, TVER 

1 880 DATA SLEEP, SLEPT, SLEPT, DORMIR, D 
ORMIR 

1881 DATA SLIDE, SLID, SLID, GL ISSER, GL 
ISSER 

1 862 DATA SLING, SLUNG, SLUNG, LANCER, L 
ANCER 

1883 DATA SLINK, SLUNK, SLUNK, SE GLISS 

ER,SE GL2SSER 
IBS 4 DATA SLIT, SLIT, SLIT, FENDRE, FEND 

RE 

1885 DATA SMELL, SMELT, SMELT, SENTIR, S 
ENTIR 

18$6 DATA SMITE, SMOTE, SMITTEN, FRAPPE 
R, FRAPPER 

li>*7 DAT* sow, snvzn, sown, smm, sfmfr 

1S9Q DATA SPEAK, SPOKE, SPOKEN, FABLER, 
PARLER 

1895 DATA SPEED, SPED, SPED, SE HATER, S 
E HATER 
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1900 DATA SPELL, SPELT, SPELT, EPELER, O 

RTHOSRAPHIER 
1910 DATA SPEW, SPENT, SPENT, DEPENSER 

, DEFENSES 

1912 DATA SPILL, SPILT, SPILT, REPANDRE 
, REPANDRE 

1914 DATA SPIN, SPUN, SPUN, FILER, TOURN 
ER 

131S DATA SPIT, SPIT, SPIT, CRASHER, CSA 
CHER 

1918 DATA SPLIT, SPLIT, SPLIT, FENDRE, F 
ENDUE 

1930 DATA SPOIL, SPOILT, SPOILT, GATES, 
AB1NER 

1 922 DATA SPREAD, SPREAD, SPREAD, ETEND 

RE,ETT3ir>F>F 
1524 DATA SPRING, SPRANG, SPRUNG, S 'ELA 

NCES^'ELANCER 
1930 DATA STAND, STOOD, STOOD, SE TENIR 

DEBOUT.SK DRESSES 
1932 DATA STAY, STAID, STAID, SOJOURNER 

, RESTER 

1934 DATA STEAL, STOLE, STOLEN, VOLER, D 
FMOmH 

1940 DATA STICK, S TUCK, STUCK, ADHERER , 
CULLER 

1S42 DATA STINC. STUNG, STUNG. PIOUER, P 

ioum 

1344 DATA STINK, S TANK, S TONS, EVER, FUE 
R 

1S4S DATA STREW, STREWED, STREWN, JONCH 

F.R, JCNCHER 
194S DATA STRIDE, STRODE, STRIDDEN, MAR 



CHER A GRANDS PAS, SE DEPECHEP. 2024 
1950 DATA SHU KSi STRUCK, S TRUCK, FRSFF 

ER,FAIRE GREVE 2026 
1 95 J DATA STR TNG, STRING, S TRUNK, F.NF T Ti 

ER,ENFILER 2028 
1352 DATA STRIVE, STROVE, STRIVEN, S 1 EF 

FORCER, S •EFFORCER 2029 
1953 DATA SWEAR, SWORF, SWORN, .TURFR,.?!/ 

RER 2030 
iSJ4 DATA SWEAT, SWEAT, SWEAT, SUEK, SUE 

R 2040 
OSS DATA SWEEP, SWEPT, SWEPT, RAT AYFR, 

DALAYER 2012 
1956 DATA SWELL, SWELLED, SWOLLEN, ENFL 

ER,ENFLER 2044 
19€0 DATA SWIM, SHAM, SWUM, NAKFR. NAGFR 
.1965 DATA SUING, SWUNG, SWUNG, BALANCER 2050 

, BALANCER 2052 
1970 DATA TAKE, TOOK, TA KEN, PR ENDRE, P R 

FNDRF 2054 
I960 DATA TGACtl, TAUCHT, TAUCHT, ENSEIC 

N£K,£NSEIGNER 2056 
1990 DATA TEAR, TORE, TORN, DECHIRER, D 

FCHTRF.R 2058 
2000 DATA TELL, TOLD, TOLD, DIRE, DIRE 
2UIV DATA THINK, THOUGHT, THOUGHT, PENS JOSS 

ER, REFLECHIR 
2015 DATA THR 1VE, THROVE, THRT VFN, PROS PfJfifl 

PERER, FRQ5PERER 
2020 DATA THROW, THREW, THROWN, JETER, L 2062 

ANCER 

2022 DATA THRUST, THRUST, THRUST, LANCE 2400 
R, LANCER 2SOO 



DATA TREAD, TROD, TROD, FOULER, FOU 
LER AVX P1EDS 

DA TA UNDERS TAND, UNDERSTOOD, UNDE 
RSTQOD, COMPRENDRE, COMPRENDRE 
DA TA UNDO, UNDID, UNDONE, DEFATRE, 
DEFAIRE 

DA TA UPSET, UPSET, UPSET, RENVERSE 
R, RFNVKRSFR 

DATA WAKE, WOKE, WOKEN, EVEILLER, S 
'EVE1LLEK 

DA TA WEAR, WORE, HORN, PORTER, PORT 
ER UN VETEMENT 

DATA WEAVE, WOVE, WOVEN, TISSER, TI 
SSER 

DA TA WEEP, KEPT, KEPT, PLEURER, PLE 
URER 

DA TA WIN, WON, WON, CACNER, CACHER 
DA TA. WIND, WOUND, HOUND, ENROULER, 
ENROULER 

DA TA WITHDRAW, WITHDREW, WITHDRAW 
, RETIRES, RETIRER 

DATA WITHSTAND, WITHSTOOD, HITHST 
OOD,RESISTER A, RESISTER A 
DA TA WORK, WROUGHT, WR OUGHT, TRAVA 
ILLER, TRAVAILLER 

DA TA WRING, WR UNG, WRUNG, TORORE, T 
CRDRE 

nara write, wrote, wrtttfn, f.crtue 

, ECRIRE 

DA TA IVKi THE, WK I THED, WR1 THEN, SE 
TORORE, SE TORQUE 

t 

• (C) 1 984 -WOUTEIiS YVES 



line nouvelle disquette de jeux : Ludologic 



Au sommaire de la disquette LUDOLOGIC, 
trois jcnx dc reflexion dc difficulty eroissante. 

Ces jenx qui necessitent des neurones aussi 
calmes qu'entraines, ne devraient pas decevuir 
les amateurs de puzzles et autres casse-tStes. 

II n'est pas ntcessaire de presenter TAQUIN, 
ce pousse-pousse informatique ici fort bien 
present*. 

Nouvelle difficult, NOIR & BLANC : 37 
hexagones peuvent itre noirs ou blancs mais 
au depart vous n'en connaissez pas la couleur, 
Chacun comporte un numero qui repr^sente le 
nombre de cellules voisines blanches... A 
vous de reconstituer le decor original I 
HEX AG ONE MAGIQUE est encore plus 
delicat, meme principe que le carrl magique, 
mais ici vous devrez installer les chiffres de 1 
a 19 dans un hexagone de telle facon que les 5 
horizontales et 10 obliques totalisent chacune 
38 : bonne chance. 



Fidele a son habitude, Pom's vous propose sur cette disquette les 
sources des routines ccritcs par Sylvic Gallct cn asscmblcur Lisa 
2.5. Bien entendu, le Basic est 6galement listable. TAQUIN et 
NOIR & BLANC utilisent leur propre routine grapftique qui 
pcrmet de dessiner plus rapidement qu'avec des shapes. 




80,00 F Franco, 
Bon de commande page 74 
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Ce programme, ecrit en 
assembleur , permet la 
lecture et l'ecriture 
directe sur 1'un des 
280 blocs d'une disquette 
ProDOS. (RSPD : Read and Save 
ProDos). 

Utilisation 

L'affichage 80 co tonnes est 
indispensable. Sur un Apple lie 
ou un Apple lie mis a niveau il 
utilise les tarac teres souris ; 
toutefois il fonctionne sans 
probleme sur un ancien lie, la 
presentation etant simplement 
moins agreable. 

II faut sauvegarder le fichier objet 
(R.S.P.D.OBJET) sur une 
disquette ProDOS a i'aide des 
'Utilitaires Systems' avant de 
lancer le programme. 
Ccci fait, executez le programme, 
Le message de presentation doit 
alors apparaitre. Inserez ensuitc la 
disquette ProDOS que vous 
voulez lire ou modifier dans le 
lecteur 1 (lecteur integre sur un 
lie) et appuyez sur <RETURN>. 
La disquette sc met a tourner et le 
contenu du block apparait sur 
l'ecran. 

Commandes 

« fleches : deplacement du 
curseur sur l'ecran ; 

• 4 et fleches gauche ou droite : 



lecture du bloc precedant ou du 
bloc suivant ; 

• d et fleches gauche ou droite : 
lecture des blocs precedant ou 
suivant par pas de 10 ; 

• <espace> : changement de 
page pour lire le premier ou le 
second groupc de 256 octets (1 
bloc contient 5 1 2 octets) ; 

• Lorsque le curseur est sur un 
octet, on peut modifier ce dernier 
en tapant direetement le code 
hexadecimal voulu ; 

• CTRL- A : entree dans le 
mode d'insertion des caracteres 
(jusqu'i un nouveau CTRL-A) ; 

• CTRL-B : entree du mimero 
de bloc pour que son contenu soit 
affichc sur l'ecran (et ceci sans 
passer par les touches et <3). 

• CTRL-C : changement de 
lecteur ( Drive 1-2), 

• CTRL-S : sauvegarde des 
modifications eventuelles sur la 
disquette (attention : l'ancien 
contenu du bloc est alors perdu). 

• CTRL-X : switch entre deux 
types de caracteres : 

- Tous les caracteres pouvant 
etre affiches le sont (y compris 
les caracteres souris). 

- Les caracteres affiches sont 
obtenus par 'ORA #$80' pour 
mettre leur bit 7 a un { les 
valeurs '00' sont alors 
affichees sous la forme du 
caractere "." ). 



Marc Rogliano 

* ESC, en fin, pour quitter le 
programme. 

Precisions 

II convient de souligner ici 
quelques points : 

- d'abord, un emprunt : la 
routine sonore du 'Moniteur 
etendu' de Thierry le Tallec 

{Pom's 8) ; 

- le buffer utilise va de 1'adresse 
$4000 a 1'adresse $4 IFF (un bloc 
ProDOS equivaut a 2 secteur DOS 
3.3 e'est-a-dire a $200 octets) ; 

- au demarrage, le programme 
teste s'il y a une carte 80 colonncs 
et s'arrete dans le cas contraire ; 
d'autre part, il teste egalement la 
machine sur laquelle il toume et 
s'd peut utiliser les icones souris, 
dans le cas contraire, ceux-ci 
seront remplaces par des 
caracteres standards comme, par 
exemple, '-' ou '!' pour les 
cadres ; 

- enfin, les erreurs concemant le 
disque sont detecte'es et affichees. 

Note : on peut aussi lire des 
disques forrnattes en DOS 3.3 ou 
PASCAL avec R.S.P.D.OBJET, 
mais il faut alors se rappeler la 
correspondence entre les blocs 
ProDOS et les secteurs logiques 
des autrcs systemes d'exploitation 
(voir Pom's n* 18 et 19). 

a 



Recapitulation 
R.S.P.D.OBJET 

Apres avoir saisi ce code sous 
moniteur, vous le sauvegarderez par 
BSAVE R.S 1 P.D.OBJ£T.A$6QOO,L$F45 

6000- 20 39 FB A9 FF 85 32 20 
6008- 58 FC AD 98 BF 29 02 DO 
€010- 17 A9 19 AO 6F A2 07 86 



6013- 


06 


86 


07 


20 


D4 


69 


20 


B9 


6070- 


A9 


FB 


AO 


6B 


24 


09 


30 


04 


6020- 


69 


20 


B9 


69 


20 


B9 


69 


60 


6078- 


A9 


ID 


AO 


6C 


20 


D4 


69 


20 


6028- 


38 


AD 


CO 


FB 


FO 


05 


C9 


EO 


6980- 


89 


69 


ED 


10 


CO 


AD 


00 


CO 


6030- 


FO 


01 


18 


66 


09 


A2 


03 


B5 


6088- 


10 


FB 


C9 


8D 


FO 


09 


8D 


10 


6038- 


36 


9D 


3h 


6F 


CA 


1 


F8 


A9 


6990- 


CO 


20 


39 


69 


4C 


85 


60 


20 


6040- 


03 


20 


95 


FE 


A 9 


1 1 


20 


FID 


6098- 


58 


FC 


A9 


12 


20 


ED 


FD 


20 


6048- 


FO 


20 


58 


FC A9 


01 


85 


06 


60A0- 


58 


FC 


A9 


04 


85 


IE 


A9 


03 


6050- 


A9 


01 


85 


07 


A9 


2A 


AO 


6A 


60A8- 


en 


.IF. 


6F 


A9 


60 


8D 


3F 


6F 


6058- 


20 


D4 


69 


A9 


91 


AO 


6A 


20 


60B0- 


A3 


00 


8D 


40 


6F 


8D 


42 


6F 


6060- 


D4 


69 


A9 


F5 


AO 


6A 


20 


04 


60R8- 


8D 


43 


GF 


A9 


40 


8D 


41 


6F 


6068- 


69 


A9 


7A 


AO 


6B 


20 


D4 


69 


60C0- 


20 


00 


BF 


80 


3E 


6F 


90 


06 
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Source 'R.S.P.D.SOURCE' 
Assembleur ProCODE 



DFX 

BPL SAVETO 

LDA t3 

JSR OUTPUT 





DSK 


R.S.P.D.OBJET 


SETTXT 


EQU 


SFB39 




******************************** 




COUT 


EQU 


$FDED 




* . AFFICHA GE.DE.LA. PRESENTA TION.* 








SPKR 


EQU 


SC030 




jrjr«*#«****pf****nir*************** 


**. . UTILTTATRF. . R. S. P. D. . , ** 


BASCALC 


EQU 


SFBC1 




DEB. SO LDA 


#17 


** . . (READ. £ , SAVE. PRODOS) ,.,•** 


FRBTTE 


EQU 


$FDUA 




JSR 


COUT 


it* 




FRMNUM 


F.QU 


SDD61 




JSR 


HOME 


* * 






AY INT 


EQU 


$E10C 




LDA 


fSOl 


**************************** 


LINPTR 


EQU 


$ED24 




STA 


CQL 


* . A sn\ . Pzocode 




GIVAYF 


EQU 


SE2F2 




LDA 


*?01 




ORG 


5*000 


MOVAF 


BQU 


$EB63 




STA 


LIG 


a**********************-* 


FDIVT 


EQU 


SEA 6 9 




LDA 


*fPR£$,0 


*. .ADRESSES. PAGE . ZERO. , • 


FADDT 


EQU 


SE7C1 




LDr 


1>PR£S. 


************************ 


OUTPRT 


EQU 


?FE95 




JSR 


STROUT40 


COL 


BQU 


$06 




******* 




LDA 


iftPRES.l 


LIG 


EQU 


$07 


*. . INITIALISATION. . * 




LDY 


#>PRES. 1 


CAR 


EQU 


foe 


*.//<;. vu. new. 


//a.?.* 




JSR 


STROUT40 


1 CONE 


EQU 


SOS 


J-**-**** * ****** ****** 




LDA 


0<PRES.2 


AFFI.L 


EQU 


S1A 




JSR 


SETTXT 


; TEXT 


LDY 


f.^PRES. 2 


AFFI.H 


EUU 


$1B 




LDA 


i$FF 




JSR 


STKUUT4B 


SWITCH 


SOU 


SIC 




STA 


S32 


,- NORMAL 


LDA 


# <PRES. 3 


CURS 


EQU 


$1E 




JSR 


HOME 




LDY 


#?PRES. 3 


LB 


EQU 


$EB 




LDA 


$BF58 




JSR 


STROUT40 


HB 


ECU 


SEC 




AND 


ftooaoooio 




LDA 


#<PRES.4.1 


LB, 


EQU 


$ED 




BNB 


QLISGQUD 




LDY 


t>PRES.4.1 


SB. 


EQU 


$EE 




LDA 


i<MESSERR 




BIT 


ICONE 


INTER 


EQU 


$EF 




LDY 


1>MESSERR 




BMI 


PRESICON 


DISK. L 


EQU 


$FA 




LUX 


f$07 




LDA 


#<PRES.4.2 


DISK. H 


EQU 


$FB 




STX 


CUL 




LDY 


»>PRES . 4 .2 


CURS. COL 


EQU 


$FC 




STX 


LIG 




PRF.SICON ,ISR 


STPOUT40 


CURS. LIG EQU 


$FD 




JSR 


STROUT40 




JSR 


SOUND 


L.LB 


EQU 


$FE 




JSR 


SOUND 




STA 


$C010 


L.U3 


EQU 


$FF 




JSR 


SOUND 




W.KBD LDA 


SCOOO 


*****w**************** 




JSR 


SOUND 




BPL 


H.KBD 


*. . ADPFSSES . SYSTEMS. . * 




RTS 






CMP 


#$8D 


********* *#*r***w*-B-jrjrjr 


QLISGQUD 


SEC 






SBQ 


XXX 


ST080.1 


EQU 


SCQO I 




LDA 


SFBCO 




STA 


SCO 10 


STOBO . 


EQU 


$cooo 




BEQ 


IIC 




JSR 


SOUND 


PAGE1 


BQU 


$C054 




CMP 


tSF.f) 




JMP 


W.KBD 


PAGE2 


EQU 


SC055 




BEQ 


NEW. HE 




A A A A A A A A A A AAA 


AA*AAA****AA 


BUTTON Q 


EQU 


SC061 




CLC 






*. CHAR GEMENT . DU . BL GCK * . * 


BUTT0K1 


EQU 


$C062 


NEW. HE 


EQU 








************** 


IIC 


ROR 


ICONE 




XXX JSR 


HOME 


*. .ROUTINES. . * 






LDX 


t3 




LDA 


US 


t ■ AAA ft AH 




SAVEIO 


LDA 


S36,X 




JSR 


COUT 


HOME 


EQU 


SFC58 




STA 


SAVE.X 




JSR 


HOME 



60C8- 


20 


BF 


68 


4C 


44 


bO 


A9 


00 


S148- 


93 


DO 


03 


4C 


C9 


61 


C9 


95 


61C8- 


60 


AD 


61 


CO 


10 


03 


4C 


E6 


60D0- 


85 


06 


A9 


01 


85 


07 


A9 


49 


6150- 


DO 


03 


4C 


Fl 


61 


CO 


SB 


DO 


61D0- 


62 


AD 


62 


CO 


10 


03 


4C 


96 


60U8- 


AO 


6C 


20 


00 


6A 


A9 


A9 


AO 


bl58- 


03 


4C 


IB 


62 


C9 


SA 


DO 


03 


61D8- 


62 


A5 


IV 


DO 


09 


20 


B9 


69 


60EO- 


ec 


24 


09 


30 


04 


AS 


31 


AO 


5160- 


4C 


5C 


62 


C9 


AO 


DO 


03 


40 


61E0- 


SD 


10 


CO 


4C 


42 


61 


C6 


FC 


6UE8- 


6C 


20 


00 


€A 


A9 


B9 


AO 


6C 


61 68- 


38 


63 


C9 


81 


DO 


03 


4C 


74 


61E8- 


20 


DF 


67 


80 


10 


CO 


4C 


42 


60F0- 


20 


00 


6A 


A9 


01 


AO 


6D 


24 


6170- 


63 


C9 


82 


DO 


03 


4C 


13 


64 


61F0- 


61 


AD 


61 


CO 


10 


03 


4C 


OF 


60F8- 


09 


30 


04 


A9 


25 


AO 


60 


20 


6173- 


C9 


83 


DO 


03 


AC 


B8 


€4 


C9 


61 F8- 


€3 


AD 


62 


CO 


10 


03 


4C 


BD 


6100- 


00 


6A 


A9 


49 


AO 


6D 


20 


00 


6180- 


93 


DO 


03 


tc 


06 


65 


C9 


98 


62 00- 


62 


AS 


FC 


C3 


OF 


90 


09 


20 


6108- 


6A 


A9 


IB 


AO 


6D 


24 


09 


30 


6188- 


DO 


03 


4C 


20 


€5 


C9 


SB 


DO 


62 08- 


B9 


69 


8D 


10 


CO 


4C 


42 


61 


€110- 


04 


A9 


9C 


AO 


6D 


20 


00 


6A 


6190 


03 


4C 


38 


65 


20 


A5 


61 


90 


6210- 


E6 


FC 


20 


DF 


67 


3D 


10 


CO 


€118- 


AS 


CO 


AO 


6D 


20 


00 


6A 


20 


6198- 


03 


4C 


5A 


65 


20 


B9 


€9 


8D 


6218- 


4C 


42 


61 


AS 


FD 


DO 


09 


20 


£120- 


DC 


65 


A9 


01 


85 


1C 


A9 


40 


61A0- 


10 


CO 


4C 


42 


61 


C9 


BO 


90 


6220- 


B9 


€9 


SD 


10 


CO 


4C 


42 


61 


6128- 


85 


FF 


A9 


00 


35 


FE 


85 


FC 


61A8- 


OC 


C9 


C7 


BO 


03 


C9 


CI 


BO 


622 8- 


OA 


OA 


OA 


OA 


BO 


OC 


C5 


FF. 


6130- 


85 


FD 


85 


FB 


85 


FA 


20 


5F 


61B0- 


06 


C9 


BA 


90 


02 


18 


60 


38 


6230- 


DO 


IF 


38 


£9 


10 


85 


FE 


4C 


€138- 


67 


20 


32 


67 


20 


B9 


61 


SD 


61B8- 


60 


C9 


8D 


FO 


08 


C9 


BO 


90 


62 38- 


46 


62 


C5 


FF 


DO 


)_} 


AQ 


40 


6140- 


10 


CO 


AD 


00 


CO 


ID 


FB 


C9 


61C0- 


06 


C9 


BA 


BO 


02 


13 


60 


38 


62 4 0- 


85 


FF 


A9 


FO 


85 


FE 


C6 


FD 



\ 

Pom's n° 25 



IDA 


t$04 




LDY 


i>AAA2. 1 




JMP 


C3. 


STA 


CURS 




BIT 


ICQNE 


AAA . 


\.Mr 


8 JJ 


LDA 


*$UJ 




SMI 


AAAI2 




BNE 


XXX . 7 


STA 


TAR7.F. 




LDA 


4<AAA2.2 




TUB 


L . L- . 


LDA 


i$60 




LDY 


#>AAA2.2 


AAA * 


CMP 


f < 3 
W •? 9 J 


STA 


TABLE+1 


AAAI2 


JSR 


STROUTSO 




BNE 


XXX. 8 


LDA 


i$OQ 




LDA 


#<"AAA3 




JMP 


C. S . 


STA 


TABLE+2 




LDY 


t>AAA3 


XXX. & 


CMP 


t$98 


STA 


TABLE* 4 




JSR 


STROUTSO 






XXX . *J 


STA 


TABLE* 5 




JSR 


CADRE 




JMP 


c.x . 


LDA 


4 $40 




LDA 


t$01 


AAA . _? 






STA 


TABLE+3 




STA 


SWITCH 




BUB 


XXX ■ 1 


JSR 


$RFOO 




LDA 


i$40 




J Mir 




DFB 


$30 




STA 


L.m 


XXX . 1 


JSR 


TEST 


DA 


TABLE 




LDA 


f$00 




BCC 


XXX. 11 


BCC 


AFF. MENU 




STA 


L.LB 




JMP 


EtiT, CAR 


JSR 


ERROR 




STA 


CURS. COL 


XXX. 11 


JSR 


SOUND 


JMP 


DEB. SO 




STA 


CURS. LIG 




STA 


SC010 


itif##)f!tit*#**i***irjrir]t-*it*-ir**ff*irr 




STA 


DISK.H 




JMP 


WAIT.KBD 


* . AFICMAGE. COMMANDES+CADRE . * 




STA 


DISK .L 


fc******************************* 






JSR 


AFF. . . 


* . CAPACTERE . ENTRE. 0-9.0U.A-F. ?. * 


jt f* c 1 jtrcM ff r nil 
Apr .flt.rJti i.iih 






JSR 


AFF. 


******* *************************** 


j In 






JSR 


SOUND 


TEST 


CMP 


f$BO 








STA 


SC010 




BCC 


TESTO 


STA 


LIS 






CMP 


*$C7 


LDA 


*<AAAO 


* . A TTENTE . D ' UNE . COMMANDS. * 




BCS 


TESTO 


LDY 


iMAAAO 


************************** 




CMP 


t$Cl 


JSR 


STXWT&Q 


tfAIT.KBD 


LDA 


$0000 




BCS 


TEST1 


LDA 


*<AAAn. 1 




BPL 


WAIT.KBD 




CMP 


iSBA 


LDY 


t>AAAO. I 




CMP 


t$B8 




BCC 


TEST1 


BIT 


ICONS 




BSE 


xxx, o 


TESTO 


CLC 




BHI 


AAAIO 




JMP 


GAUCHE 




RTS 




LDA 


*<AAA0.2 


XXX. 


CMP 


*S95 


TEST1 


SEC 




LDY 


i>AAAO.S 




BNE 


XXX.l 




STS 




AAAIO JSR 


STROUTSO 




JMP 


DROITS 






LDA 


jKAAAl 


XXX. 1 


CMP 


t$8B 


*; CARACTERE . ENTRE . C . ET . 9. ?. * 


LDY 


¥>AAA1 




BNE 


XXX. 2 


****** ******* 


^4:******:* ****** 


,Kfl 


STROUTSO 




JMP 


HAUT 


TEST. . 


CMP 


#$8D 


LDA 


t<AAAl . 1 


XXX. 2 


CMP 


1$3A 




BEQ 


TEST. . 1 


LDY 


4>AAA1.1 




BNE 


XXX. 3 




CMP 


t$B0 


BIT 


ICQNE 




JMP 


BAS 




BCC 


TEST. . 2 


BHI 


AAAI1 


XXX. 3 


CMP 


t?AV 




UMP 


f9"+l 


LDA 


*<AAA1.2 




BNE 


XXX . 4 




BCS 


TEST. . ? 


LDY 


i>AAAl . 2 




JMP 


SPACE 


TEST. . 1 


CLC 




AAA21 JSP 


STROUTSO 


XXX. 4 


CMP 


t$81 




RTS 




LDA 


t<AAA2 




BNE 


XXX. 5 


TEST. .2 


SEC 




LDY 


t±AAA2 




JMP 


C.A. 




RTS 




JSR 


STROUTSO 


XXX. 5 


CMP 


t$82 


******************************** 


LDA 


i<AAA2. 1 




BNE 


XXX. 6 


"DEFLA CEMEN TS , CURSE DR. SUR.ECRAN' 



624$- 


20 


32 


$7 


3D 


10 


CO 


4C 


42 


62C8- 


B9 


69 


8D 


10 


CO 


4C 


42 


61 


6348- 


C9 


10 


BO 


07 


18 


A9 


10 


65 


6250- 


61 


ce 


FD 


20 


DP 


67 


SB 


ID 


62D0- 


IS 


AS 


FA 


69 


01 


85 


FA 


AS 


6350- 


FD 


85 


FD 


20 


32 


67 


8D 


10 


6258- 


CO 


4C 


42 


61 


A5 


FD 


C9 


IF 


62D8- 


FB 


69 


00 


85 


FB 


20 


39 


67 


6358- 


CO 


4C 


42 


61 


A9 


40 


85 


FF 


6260- 


90 


09 


20 


39 


69 


8D 


10 


CO 


62EO- 


80 


10 


co 


4C 


42 


61 


AS 


FB 


63 60 - 


A Q 


00 


as 


FF. 


38 


A5 


FD 


F.9 


62SS- 


4C 


42 


61 


E6 


FD 


A5 


FD 


OA 


62ES- 


£10 


OF 


AS 


FA 


C9 


OA 


BO 


09 


6368- 


10 


85 


FD 


20 


32 


67 


8D 


10 


6270- 


OA 


OA 


OA 


90 


19 


C5 


FE 


DO 


62F0- 


20 


B9 


69 


3D 


10 


CO 


4C 


42 


63 70- 


CO 


4C 


42 


61 


SD 


10 


CO 


20 


6278- 


14 


18 


69 


10 


85 


FE 


DO 


04 


62F8- 


61 


38 


AS 


FA 


E9 


OA 


85 


FA 


63 78- 


28 


68 


AS 


FC 


A2 


03 


CA 


FO 


62 90- 


A9 


41 


35 


FF 


20 


32 


67 


8D 


6300- 


AS 


FB 


E9 


00 


85 


FB 


20 


39 


6330- 


06 


IS 


65 


FC 


4C 


7E 


63 


IS 


62 88- 


10 


CO 


4C 


42 


61 


20 


DF 


6/ 


6308- 


67 


80 


10 


CO 


4C 


42 


61 


A5 


6388- 


69 


09 


85 


06 


A5 


FO 


OA 


OA 


6230- 


3D 


10 


co 


4C 


42 


61 


A5 


FB 


6310- 


FB 


FO 


OF 


AS 


FA 


C9 


OE 


90 


63 go- 


OA 


OA 


38 


E5 


FE 


4A 


4A 


4A 


62 98- 


DO 


OD 


A5 


FA 


DO 


09 


20 


B9 


6318- 


09 


20 


B9 


69 


8D 


10 


CD 


4C 


es 98- 


4A 


18 


6 9 


08 


85 


si 


A3 


3F 


62A0- 


69 


3D 


10 


CO 


4C 


42 


61 


33 


6320- 


42 


61 


18 


A5 


FA 


69 


OA 


85 


63A0- 


85 


06 


20 


3C 


69 


E6 


06 


20 


62A8- 


AS 


FA 


E9 


01 


85 


FA 


A5 


FB 


6328- 


FA 


AS 


FB 


69 


00 


85 


FB 


20 


63A8- 


3C 


69 


AD 


00 


CO 


10 


FB 


8D 


62B0- 


E9 


00 


85 


FB 


20 


39 


67 


8D 


6330- 


39 


67 


3D 


10 


CO 


4C 


42 


61 


6330- 


10 


CO 


CO 


81 


FO 


54 


85 


EF 


62B8- 


10 


CO 


4C 


42 


61 


AS 


FB 


FO 


6338- 


A5 


FF 


C9 


41 


BO 


IE 


AS 


41 


6338- 


AS 


FD 


OA 


OA 


OA 


OA 


18 


65 


62C0- 


OF 


A5 


FA 


C9 


1 7 


90 


09 


20 


6340- 


85 


FF 


A9 


00 


85 


FE 


AS 


FD 


63C0- 


FC 


38 


E5 


FE 


AO 


A 5 


EF 


91 



J 

Pom's n 25 U 





BNE 


HAUT4 


JMP 


WAIT. KBD 


GAUCHE 


LDA 


BUTTONO 


LDA 


t$40 


GAUCHE. 1 SEC 






BPL 


XXX. A 


STA 


L.HB 


LDA 


DISK.L 




JMP 


GAUCHE. . 


LDA 


t$FO 


SBC 


iSQl 


XXX. A 


LDA 


BUTTON! 


STA 


L.LB 


STA 


DISK.L 




BPL 


XXX. B 


HAUT3 DEC 


CURS. LIS 


LDA 


DISK. H 




JMP 


GAUCHE. 


JSR 


AFF. 


SBC 


#■$90 


XXX. B 


LDA 


CURS.C01, 


STA 


SCO I 


STA 


DISK. a 




BNE 


<SA UCHE1 


JMP 


WAIT.KBO 


JSR 


AFF. . 




JSP 


SOUND 


HAUT4 DEC 


CURS. LIS 


STA 


$C010 




STA 


$C010 


JSR 


AFF 


JMP 


WAIT. KBD 




JMP 


WAIT. KBD 


STA 


SCSI 


DROITE. LDA 


DISK.H 


GAUCHE1 


DEC 


CUES. COL 


JMP 


WAIT. RED 


BEQ 


DROITE. I 




JSR 


AFF. . . . 


BAH LDA 


CURS. LIS 


LDA 


DISK.L 




STA 


SC010 


CMP 


t?lF 


CMP 


t $17 




JMP' 


WAIT. KBD 


BCC 


BAS1 


BCC 


DROITE. 1 


DRQITE 


LDA 


BUTTONO 


JSR 


SOUND 


JSR 


SOUND 




BPL 


XXX. C 


STA 





STA 


SC010 




JMP 


DROITS. . 


JMP 


WAIT. KBD 


JMP 


WAIT. KBD 


XXX. c 


LDA 


BUTTON 1 


BAS1 INC 


CURS.LIG 


DROITE. 1 CLC 






BPL 


XXX. D 


LDA 


CURS. LIG 


LDA 


DISK. L 




JMP 


DROITS. 


ASL 




ADC 


*$C1 


XXX. D 


LDA 


CURS. CUL 


ASL 




STA 


DISK. L 




CMP 


JSOF 


Asr, 




LDA 


DISK.H 




BCC 


DRQITE1 


ASL 




ADC 


tsov 




JSR 


SOUND 


BCC 


BASS 


STA 


DISK.H 




STA 


$CQ10 


CMP 


L.LB 


JSR 


AFF. , 




JMP 


WAIT. KBD 


BNE 


BAS3 


STA 


$C010 


DR0ITE1 


INC 


CUPS. COL 


CLC 




JMP 


WAIT. KBD 




JSR 


AFF. . . . 


ADC 


t$10 


*it-*il-***#it"#itir*jrr*irr]i-jrjr>i-it#ir*1'*ir* 




STA 


$C02 


STA 


T.. T.B 


*. DEPLACEMENTS. DISQUE, 1*10) . * 




JMP 


WAIT. KBD 


BNE 


BAS2 




HAUT 


LDA 


CURS.LIG 


LDA 


4$41 


GAUCHE. . LDA 


DISK. H 




BNE 


HAUT1 


STA 


L.HB 


BNE 


GAUCHE. Z 




JSR 


SOUND 


BAS2 JSR 


AFF. 


LDA 


DISK.L 




STA 


(C010 


STA 


SC010 


CMP 


f$OA 




JMP 


WAIT. KBD 


JMP 


WAIT. KBD 


BCS 


GAUCHE. 2 


HAUT1 


ASL 




BAS3 JSR 


AFF. . . . 


JSR 


SOUND 




ASL 




STA 


SC01Q 


STA 


SCV10 




ASL 




JMP 


WAIT. KBD 


JMP 


WAIT. KBD 




ASL 






GAUCHE. 2 SEC 






BCS 


HAUT? 


* . DEPLACEMENTS .SUR.LE. D I SOUS . * 


LDA 


DISK.L 




cm 


L.LB 






SBC 


ISOA 






HAUT4 


GAUCHE. LDA 


DISK.H 


STA 


DISK.L 




SBC 




BNE 


GAUCHE. 1 


LDA 


DISK. H 




sac 


»$IQ 


LDA 


DISK.L 


SBC 


4?00 




STA 


L.LB 


BNE 


GAUCHE. 1 


STA 


DISK.H 




JMP 


HAUT3 


JSR 


SOUND 


JSR 


AFF. . 


HAUT2 


CMP 


L.LB 


STA 


SCO 10 


STA 


$C01 



63C8- 


FE 


AS 


FC 


C9 


OF 


90 


33 


A9 


6448- 


9D 


10 


03 


C9 


OD 


FO 


20 


E8 


64C8- 


A9 


IB 


B5 


06 


A9 


Bl 


85 


OB 


63D0- 


00 


85 


FC 


A5 


FD 


C9 


IF 


90 


6450- 


8A 


48 


EO 


03 


F0 


18 


AS 


EF 


64D0- 


20 


3C 


69 


E6 


06 


E6 


06 


A3 


63D3- 


OA 


A9 


OF 


85 


FC 


20 


B9 


69 


6458- 


85 


08 


20 


3C 


69 


A9 


20 


85 


64D8- 


32 


85 


08 


20 


3C 


69 


4C 


00 


63E0- 


4C 


OA 


64 


E6 


FD 


A5 


FD 


OA 


6460- 


08 


F.6 


06 


20 


3C 


69 


68 


AA 


64E0- 


65 


A9 


60 


SD 


3F 


6F 


A 9 


06 


63E8- 


OA 


OA 


OA 


90 


OF 


C5 


FE 


DO 


6463- 


3D 


10 


CO 


w 


27 


64 


68 


AS 


64E8- 


85 


07 


A9 


IB 


85 


06 


A9 


31 


63F0- 


OB 


18 


69 


10 


95 


FE 


DO 


04 


6470- 


OD 


9D 


10 


03 


EO 


CO 


FO 


34 


64F0- 


95 


09 


20 


3C 


69 


E6 


06 


E6 


63F8- 


AS 


41 


as 


FF 


20 


80 


66 


4C 


64 78- 


A3 


10 


85 


B8 


A9 


03 


85 


B9 


64F8- 


06 


A9 


B2 


85 


08 


20 


3C 


69 


64 00- 


77 


63 


E6 


FC 


20 


90 


66 


4C 


6480- 


20 


67 


DD 


20 


OC 


El 


AS 


AO 


6500- 


SD 


10 


CO 


4C 


42 


61 


20 


00 


6408- 


77 


63 


20 


32 


6/ 


3D 


10 


CO 


6488- 


C9 


01 


BO 


OF 


85 


FB 


A5 


Al 


6508- 


BF 


81 


3E 


6F 


30 


06 


3D 


10 


6410- 


4C 


42 


61 


8D 


10 


CO 


A9 


06 


6490- 


85 


FA 


20 


39 


67 


SD 


10 


CO 


6510- 


CO 


4C 


42 


61 


20 


BF 


68 


20 


6418- 


85 


07 


A3 


08 


85 


06 


AS 


20 


6493- 


4C 


42 


61 


C9 


02 


BO 


OD 


A5 


6518- 


32 


67 


BD 


10 


CO 


4C 


42 


61 


6420- 


85 


08 


20 


3C 


69 


A2 


00 


AD 


64AQ- 


Al 


C9 


18 


80 


07 


AS 


AO 


85 


6520- 


AS 


1C 


FO 


07 


A9 


00 


85 


1C 


6428- 


00 


CO 


10 


FB 


85 


EF 


20 


B9 


64A9- 


FB 


4C 


BE 


64 


20 


5F 


61 


20 


6528- 


4C 


2F 


65 


A9 


01 


85 


1C 


20 


6430- 


61 


8A 


48 


90 


OD 


20 


5F 


67 


64B0- 


B9 


69 


SD 


10 


CO 


4C 


42 


61 


6530- 


32 


67 


8D 


10 


CO 


4C 


42 


61 


64 38- 


20 


B9 


69 


68 


8D 


10 


CO 


4C 


64B9- 


AD 


3F 


6F 


C9 


EO 


FQ 


22 


A9 


6538- 


20 


B9 


69 


20 


B9 


69 


A9 


15 


6440- 


42 


61 


68 


AA 


AS 


EF 


29 


7F 


64C0- 


EO 


3D 


3F 


6F 


A9 


06 


85 


07 


6540- 


20 


ED 


FD 


AS 


03 


BD 


3A 


6F 



\ 
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JMP 


HAIT.KBD 




JMP 


WAIT. KBD 


SBC 


L.LB 


DROITS. . 


LDA 


DISK. J I 


**** * * * * 




t t * r t i i E i I at 


TAY 






BEQ 


DROITE. 2 


* . ENTREP. 


.DES 


CARACTERES. * 


LDA 


INTER 




LDA 


DISK.L 




STA 


(L.LB), Y 




CMP 


tSOE 


C.A, 


STA 


scoi o 


LDA 


CURS. COL 




BCC 


DROTTF..? 


C.A.O 


JSR 


aff. am 


cpp 


iSOF 




JSR 


SOUND 




LDA 


CURS. COL 


BCC 


C.A. 6 




STA 


SC010 




LDX 


f$03 


LDA 


tsoo 




JMP 


WATT. KBD 


C.A. 1 


DEX 




■ STA 


CURS. COL 


DROITS. 2 


CLC 






BEQ 


C.A. 2 


LDA 


CURS.LIG 




LDA 


DISK. L 




CLC 




CMP 


i$lF 




adc 


i$m 




ADC 


CURS. COL 


BCC 


C.A. 4 




STA 


DISK. L 




JMP 


C.A. 1 


LDA 


i$OF 




LDA 


DISK.H 


C.A. 2 


CLC 




STA 


CURS. COL 




ADC 


#soo 




ADC 


§$0<i 


JSR 


SOUND 




STA 


DISK.H 




STA 


COL 


JMP 


C.A. 7 




JSR 


AFF. . 




LDA 


CURS.LIG 


C.A. 4 INC 


CURS.LIG 




STA 


$C010 




ASL 




LDA 


CURS.LIG 




JMP 


WAIT. KBD 




ASL 




ASL 








ASL 




ASL 




* . CHANCER . OE . FAGE . ' 




ASL 




ASL 








SEC 




ASL 




SPACE 


LDA 


L.HB 




SBC 


L.LB 


BCC 


C.A. 5 




CMP 


t$4l 




LSR 




CMP 


r. . t.b 




BCS 


SPACE2 




LSR 




BNE 


C.A. 5 




LDA 


§$41 




LSR 




CLC 






STA 


L.HB 




LSR 




ADC 


fsio 




LDA 


tfOO 




CLC 




STA 


L.LB 




STA 


L.LB 




ADC 


t$C8 


BNE 


C.A. 5 




LDA 


CURS.LIG 




STA 


LIG 


LDA 


fS41 




CMP 


iSW 




LDA 


f$3F 


STA 


L.fiB. 




BCS 


SPACE 1 




STA 


CAR 


C.A. 5 JSR 


AFF 




CLC 






JSR 


COL. LIG 


.JMP 


c.a. a 




LDA 


t$10 




INC 


COL 


C.A.S INC 


CURS. COL 




ADC 


CURS.LIG 




JSR 


COL. LIG 


JSR 


AFF 




STA 


CURS.LIG 


C.A. 3 


LDA 


$C0O0 


JMP 


C.A. 


SPACE1 


JSR 


AFF, 




BPL 


C.A. J 


C.A. 7 JSR 


AFF. 




STA 


$C01 




STA 


SCOI 


STA 


$C01 




JMP 


WAI T. KBD 




CMP 


t$81 


JMP 


WA1 T. KBD 


SPACE2 


LDA 


t$40 




BEO 


C.A. 7 






STA 


L.HB 




STA 


INTER 


* . EHTRER . UN. BLOCK. ' 




LDA 


*soo 




LDA 


CURS.LIG 






STA 


L.LB 




ASL 




C.B. STA 


$C01 




SEC 






ASL 




LDA 


t$oe 




LDA 


CURS. LIS 




ASL 




STA 


LIC 




SBC 


i$10 




ASL 




LDA 


i$os 




STA 


CURS.LIG 




CLC 




STA 


COL 




JSR 


AFF. 




ADC 


CURS. COL 


LDA 


1S20 




STA 


SC01 




SEC 




STA 


CAR 



6548- 


95 


36 


CA 


10 


F8 


20 


SB 


FC 


6550- 


20 


B9 


69 


20 


B9 


69 


8D 


10 


6558- 


CO 


60 


3D 


10 


CO 


85 


08 


A5 


65 60- 


FC 


A2 


03 


CA 


FC 


06 


18 


65 


6568- 


FC 


4C 


63 


65 


18 


69 


09 


85 


6570- 


06 


AS 


FD 


OA 


OA 


OA 


OA 


38 


6578- 


E5 


fe 


4A 


4A 


4A 


4A 


18 


69 


6580- 


OB 


R5 


07 


?n 


3C 


69 


AS 


08 


65 88- 


C9 


CI 


BO 


06 


38 


E9 


BO 


4C 


6590- 


95 


65 


38 


E9 


B7 


OA 


OA 


OA 


65 98- 


OA 


85 


EF 


AD 


00 


CO 


10 


FB 


65A0- 


20 


AS 


61 


BO 


OC 


8D 


10 


CO 


65A8- 


20 


32 


61 


20 


B9 


69 


4C 


42 


65B0- 


61 


C9 


CI 


BO 


06 


38 


E9 


BO 


65B8- 


4C 


BE 


65 


38 


E9 


B7 


05 


EF 


65C0- 


85 


EF 


A5 


FD 


OA 


OA 


OA 


OA 



65C0- 


18 


65 


FC 


38 


E5 


FE 


AS 


A5 


65D0- 


EF 


91 


FE 


80 


10 


CO 


20 


32 


65D8- 


67 


4C 


42 


61 


A9 


5A 


85 


08 


6SE0- 


20 


3C 


69 


A9 


4C 


85 


08 


E6 


65E8- 


06 


20 


3C 


69 


E6 


06 


A3 


4D 


6SF0- 


C5 


06 


DO 


F5 


A9 


5F 


85 


08 


65F8- 


20 


JC 


69 


E6 


06 


A9 


AO 


85 


6600- 


08 


20 


3C 


69 


E6 


06 


A3 


SA 


6608- 


85 


08 


20 


3C 


69 


E6 


07 


A3 


6610- 


00 


85 




A9 


SA 


95 


08 


20 


6618- 


3C 


69 


E6 


06 


AS 


AO 


85 


08 


6620- 


20 


3C 


69 


E6 


06 


A9 


A4 


8S 


6628- 


08 


20 


3C 


69 


A9 


5F 


85 


08 


6630- 


A9 


4D 


85 


06 


20 


3C 


69 


E6 


6638- 


06 


E6 


06 


A9 


SA 


85 


03 


20 


6640- 


3C 


69 


A9 


17 


C5 


07 


DO 


C5 



6618- 


E6 


07 


A9 


00 


85 


06 


A9 


SA 


6650- 


35 


08 


20 


3C 


69 


AS 


DF 


85 


6658- 


08 


E6 


06 


20 


3C 


69 


E6 


06 


6660- 


A9 


4D 


C5 


06 


DO 


F5 


A9 


5F 


6668- 


85 


08 


20 


3C 


69 


E6 


06 


A3 


6670- 


AO 


85 


08 


20 


3C 


69 


E6 


06 


6673- 


A9 


52 


85 


08 


20 


3C 


69 


60 


6680- 


AS 


FE 


85 


1A 


A5 


FF 


85 


IB 


6688- 


A9 


07 


48 


20 


CI 


FB 


A3 


03 


6690- 


85 


74 


AS 


iB 


29 


01 


FC 


OS 


6698- 


A3 


Bl 


4C 


9F 


66 


AS 


80 


20 


66A0- 


ED 


FD 


AS 


1A 


20 


DA 


FD 


A9 


66A8- 


AO 


20 


ED 


FD 


A9 


AO 


20 


ED 


66B0- 


FD 


AS 


00 


48 


A9 


AO 


20 


ED 


66B8- 


FD 


68 


48 


A8 


Bl 


1A 


20 


DA 


66C0- 


FD 


68 


AS 


C8 


CO 


10 


98 


90 



Pom's n° 25 



C.B.I 



C.3.2 



C.B.3 
C.B. 4 



JSR 


COL, LIC 




CMP 


#$01 


JSR 


COL.LIG 


LDX 


t$00 




BCS 


C. B. 6 


INC 


COL 


LDA 


SCOQO 




STA 


DISK.H 


INC 


COL 


BPL 


C.B. 1 


C.B. 5 


LDA 


$A1 


LDA 


t$B2 


STA 


INTER 




STA 


DISK.L 


STA 


CAR 


JSR 


TEST. . 




JSR 


AFF. . 


JSR 


COL.LIG 


TXA 






STA 


$C010 


C.C. 2 STA 


fC'OJ 


PHA 






JMP 


wait, xan 


,mp 


MA 7 T. KP.D 


BCC 


C.B. 2 


C.B. C 


CMP 


«$Q2 






JSR 


AFF. . . 




BCS 


C.B. 7 


*.SAUVER . SUR . DISQUETTE . * 


JSR 


SOUND 




LDA 


$A1 




+ + + + + 


FLA 






CMP 


#$18 


C.S. JSR 


S8F00 


STA 


SC010 




BCS 


C. B. 7 


DFB 


$81 


JMP 


HAIT.KBD- 




LDA 


$A0 


DA 


TABLE 


PLA 






STA 


DlSX.fi 


BCS 


ERSEUR. S 


TAX 






JMP 


C.B. 5 


STA 


SCOIO 


IDA 


INTER 


C.B. 7 


JSR 


AFF. . . 


JMP 


WAIT.KBD 


AND 


i$7F 




JSR 


SOUND 


BtmBUR.S JSR 


ERROR 


STA 


$310, X 




STA 


SC010 


JSR 


AFF. 


CMP 


t$OD 




JMP 


WAIT.KBD 


STA 


SC010 


BEQ 


C.B. 4 




JMP 


WAIT. KBD 


JNX 




' * . CHANGER , DE - 


DRIVE. * 




TXA 




A A: A A Jt A 


4 A Jt J* A A 


it 4-*'*#-'tf j 


*, "SWITCHER" 


CAM CTERES . ' 


PHA 




C.C. 


LDA 


TABLE+l 




CPX 


t?03 




CMP 


4$E0 


C.X. LDA 


SNITCH 


BEQ 


C.B.3 




BEQ 


C.C.I 


BEQ 


C.X.I 


LDA 


INTER 




LDA 


tfEO 


LDA 


#$00 


STA 


CAR 




STA 


TABLE+l 


STA 


SWI TCH 


JSR 


COL . LIC 




LDA 


#$06 


JMP 


C.X. 2 


LDA 


t$20 




STA 


LIG 


C.X.I LDA 


#$01 


STA 


CAR 




I.BA 


#51 B 


STA 


SWITCH 


INC 


COL 




STA 


COL 


C.X. 2 JSR 


AFF. 


JSR 


COL.LIG 




LDA 


t$Bl 


STA 


$C010 


PLA 






STA 


CAR 


JMP 


WAIT.KBD 


TAX 






JSR 


COL. LIS 




STA 


$C010 




li/C 


COL 


* . SORTIR . DU. PROGRAMME . * 


JMP 


CB.l 




INC 


COL 




PLA 






LDA 


t$32 


F.SC JSR 


SOUND 


LDA 


t$QD 




STA 


CAR 


JSR 


SOUND 


STA 


$310, X 




JSR 


COL.LIG 


LDA 


$21 


CPX 


t$QO 




JMP 


C.C. 2 


JSR 


COOT 


BEQ 


C.B. 7 


C.C.I 


LDA 


t$60 


LDX 


#3 


LDA 


*$10 




STA 


TABLE 11 


RESETIO LDA 


SAVE,X 


STA 


SB3 




LDA 


t$06 


STA 


$36, X 


LDA 


t$Q3 




STA 


LIG 


DEX 




STA 


SB 9 




LDA 


t?lB 


BPL 


RESETIO 


JSR 


FRMVUM 




STA 


COL 


JSR 


HOME 


JSR 


AYINT 




LDA 


#$31 


JSR 


sout/u 


LDA 


$m 




STA 


CAR 


JSR 


SOUHD 



66C8- 


EA 


A3 


AO 


20 


ED 


FD 


A3 


AO 


6748- 


6F 


BO 


07 


20 


5F 


67 


20 


32 


C7C8- 


OE 


85 


24 


AS 


FB 


FO 


05 


A9 


66D0- 


20 


ED 


FD 


A9 


BA 


20 


ED 


FD 


6750- 


67 


60 


20 


AO 


68 


20 


BF 


68 


5700- 


Bl 


4C 


D6 


67 


AS 


30 


20 


ED 


66D8- 


A9 


AO 


20 


ED 


FD 


A3 


3C 


85 


6758- 


20 


5F 


67 


20 


32 


67 


60 


A3 


67D8- 


FD 


A5 


FA 


20 


DA 


FD 


60 


AD 


66E0- 


06 


68 


48 


AA 


E8 


8A 


85 


07 


6760- 


IE 


ss 


07 


A9 


4F 


is 


OS 


A9 


67F.0- 


45 


fiF 


A2 


03 


CA 


FO 


07 


18 


66EB- 


A9 


00 


48 


A8 


Bl 


1A 


85 


EF 


6768- 


5A 


65 


08 


20 


3C 


69 


A5 


FB 


67£8- 


&> 


45 


6F 


4C 


E4 


67 


18 


69 


6 G FO- 


A5 


1C 


FO 


OF 


AS 


EF 


FO 


07 


6770- 


A 4 


FA 


20 


F2 


E2 


20 


63 


EB 


67F0- 


08 


85 


24 


AD 


46 


6F 


OA 


OA 


SSES - 


09 


30 


35 


EF 


4C 


03 


67 


A9 


6718- 


A3 


00 


AO 


OE 


20 


F2 


E2 


20 


67F8- 


OA 


OA 


38 


Eh 


FE 


4A 


4A 


4A 


6700- 


AE 


35 


EF 


A5 


EF 


85 


08 


38 


6780- 


69 


EA 


20 


63 


EB 


A9 


00 


AO 


68 00- 


4A 


IB 


69 


07 


20 


CI 


FB 


A9 


6108- 


66 


09 


20 


3C 


69 


26 


09 


E6 


6788- 


04 


20 


F2 


£2 


20 


CI 


E7 


20 


6808- 


AO 


20 


ED 


FD 


AD 


46 


6F 


OA 


6710- 


06 


SB 


A8 


C8 


98 


co 


10 


90 


6790- 


oc 


El 


AS 


Al 


85 


IE 


85 


07 


6810- 


OA 


OA 


OA 


18 


6D 


45 


6F 


33 


6718- 


Dl 


68 


AS 


C8 


CO 


17 


BO 


11 


6/98- 


A9 


20 


85 


08 


20 


3C 


69 


A9 


6818- 


E5 


FE 


AS 


Bl 


FE 


20 


DA 


FD 


6720- 


13 


A5 


1A 


69 


10 


BS 


1A 


A3 


67A0- 


05 


20 


CI 


FB 


A9 


08 


85 


24 


6820- 


AS 


AO 


20 


ED 


FD 


AC 


28 


68 


6728- 


00 


65 


IB 


85 


IB 


98 


4C 


8A 


67A8- 


A6 


FA 


A5 


FB 


20 


24 


ED 


A5 


6828- 


AS 


FC 


8D 


45 


6F 


A5 


FD 


8D 


6730- 


66 


60 


20 


30 


66 


20 


28 


68 


67B0- 


FB 


DO 


14 


A5 


FA 


C9 


64 


BO 


6830- 


4C 


6F 


A9 


28 


85 


24 


A3 


05 


6738- 


60 


AS 


FA 


3D 


42 


6F 


A5 


FB 


67B8- 


OE 


C9 


OA 


BO 


05 


A9 


AO 


20 


6838- 


20 


CI 


FB 


A5 


FD 


OA 


OA 


OA 


6740- 


3D 


43 


6F 


20 


00 


BF 


80 


3E 


67C0- 


ED 


FD 


A3 


AO 


20 


ED 


FD 


A9 


6840- 


OA 


85 


EF 


90 


05 


A3 


Bl 


4C 



\ , 

14 Pom's n° 25 



STA 


$C01 


STA 


SC01 




JSR 


COL. LIG 


RTS 




JSR 


AFF. 




INC 


COL 


************************** 


JSR 


SOUND 




LDA 


#$5A 


'.BNTRER. UNE. VALEUR.HEXA. • 


JMP 


WAIT.KBD 




STA 


CAR 


******** ************ IT ***** 


ENT. CAR 6 CMP 


*$C1 




JSR 


COL. LIG 


EN T. CAR STA 


$caio 


BCS 


ENT. CAR 7 


CADRE. 2 


INC 


LIG 


STA 


CAR 


SEC 






LDA 


tsoo 


LDA 


CURS. COL 


SBC 


f$BO 




STA 


COL 


LDX 


#-5UJ 


JMP 


ENT.CAR8 




LDA 


t$5A 


ENT- CAR! DEX 




ENT. CAR 7 SEC 






STA 


CAR 


BEQ 


ENT. CAR2 


SBC 


t$B7 




JSR 


COL. LIS 


CLC 




ENT. CARS ORA 


INTER 




INC 


COL 


ADC 


CURS . COL 


sta 


INTER 




LDA 


t$AO 


JHP 


ENT.CAR1 


LDA 


CURS. LIG 




STA 


CAR 


ENT.CAR2 CLC 




ASL 






JSR 


COL. LIC 


ADC 


#539 


ASL 






INC 


COL 


STA 


COL 


ASL 






I.DA 


*$A4 


LDA 


CURS. LIG 


ASL 






STA 


CAR 


ASL 




CLC 






JSR 


COL. LIG 


ASL 




ADC 


CURS. COL 




LDA 


tfSF 


ASL 




SEC 






STA 


CAR 


ASL 




SBC 


L.LB 




LDA 


#77 


SEC 




TAX 






STA 


COL 


SBC 


L.LB 


LDA 


INTER 




JSR 


COL. LIG 


LSR 




STA 


IL.LB),Y 




INC 


COL 


LSR 




STA 


5cai o 




INC 


COL 


LSR 




JSR 


AFF. 




LDA 


tSSA 


LSR 




JMP 


tlAIT.KBD 




STA 


CAR 


CLC 




**************************** 




JSR 


COL. LIG 


ADC 




*. TRACE. DU. CADRE . ENTOURANT. * 




LDA 


123 


STA 


LIG 


*. IS. CONTENU. DU. BUFFER • 




CUP 


LIG 


JSR 


COL. LIG 


**************************** 




BNE 


CADRE. 2 


LDA 


CAR 


CADRE LDA 


t$5A ,'"Z" 




INC 


T.IG 


CMP 


t$Cl 


STA 


CAR 




LDA 


#500 


BCS 


ENT. CAR 3 


JSR 


COL. LIG 




STA 


COL 


SEC 




LDA 


§$4C J -L" 




LDA 


i?5A 


SMC 




STA 


CAR 




STA 


CAR 


JMP 


ENT. CAR4 


INC 


COL 




JSR 


COL. LIG 


ENT. CAS 3 SEC 




CADRE. 1 JSR 


COL. LIG 




LDA 


fSDF 


SBC 


f$B7 


INC 


COL 




STA 


CAR 


ENT.CAR4 ASL 




LDA 


#77 




INC 


COL 


ASL 




CMP 


COL 


CADRE. 3 


JSR 


COL. LIG 


ASL 




BNE 


CADRE. 1 




INC 


COL 


ASL 




LDA 


f$5F ,'" " 




LDA 


#77 


STA 


INTER 


STA 


CAR 




CUP 


COL 


ENT. CARS LDA 


SCOOO 


JSR 


coL.un 




BNE 


CADRE. 3 


BEL 


ENT. CARS 


INC 


COL 




LDA 


*$5F 


JSR 


TEST 


LDA 


t$AO i* " 




STA 


CAR 


BCS 


ENT. CAR C 


STA 


CAR 




JSR 


COL. LIG 



■ " 5 " 



6848- 


4L 


68 


A9 


BO 


20 


EU 


FD 


Ai> 


6850- 


FC 


OS 


EF 


20 


DA 


FD 


AS 


FC 


6858- 


A2 


03 


CA 


FO 


06 


18 


65 


FC 


6860- 


AC 


SA 


68 


IB 


69 


08 


85 


24 


68 68- 


AS 


FD 


OA 


OA 


OA 


OA 


38 


E5 


6870- 


FE 


4A 


4A 


4A 


4A 


18 


69 


07 


6878- 


20 


CI 


FB 


A9 


BE 


20 


ED 


FD 


6880- 


A3 


3F 


85 


32 


AS 


FD 


OA 


OA 


6888- 


OA 


OA 


18 


65 


FC 


38 


E5 


FE 


6890- 


A3 


Bl 


FE 


20 


DA 


FD 


A9 


FF 


6898- 


85 


32 


AS 


BC 


20 


ED 


FD 


60 


68A0- 


A9 


40 


85 


EC 


A9 


00 


85 


EB 


68A8- 


AO 


00 


A9 


00 


91 


EB 


C8 


DO 


68B0- 


F9 


A9 


41 


85 


EC 


AO 


00 


A9 


68B8- 


00 


91 


EB 


C8 


DO 


F9 


60 


A3 


68C0- 


08 


85 


07 


20 


37 


69 


A9 


83 



68C8- 


AO 


sa 


20 


00 


6A 


20 


3 7 


69 


68D0- 


A9 


SF 


AO 


6E 


20 


00 


6A 


20 


68D8- 


At 


69 


A9 


BB 


AO 


6E 


20 


00 


68E0- 


6A 


20 


37 


69 


A3 


9F 


AO 


6E 


68E8- 


20 


00 


6k 


20 


37 


69 


A3 


D7 


68F0- 


AO 


6E 


20 


00 


6A 


A9 


EA 


AO 


68F8- 


6E 


24 


09 


30 


04 


A9 


F4 


AO 


6900- 


6E 


20 


00 


6A 


20 


31 


69 


A9 


6908- 


9F 


AO 


6E 


20 


00 


6A 


20 


37 


6910- 


69 


A9 


FE 


AO 


6E 


20 


00 


6A 


6918- 


20 


37 


69 


20 


B9 


69 


20 


B9 


6920- 


69 


3D 


10 


CO 


AD 


00 


CO 


10 


6928- 


FB 


C9 


SD 


FO 


09 


8D 


10 


CO 


6930- 


20 


B9 


69 


4C 


24 


69 


60 


A3 


6938- 


IB 


85 


06 


60 


AS 


07 


20 


80 


6940- 


69 


A5 


06 


4A 


BO 


10 


80 


01 



6948- 


CO 


8D 


55 


CO 


20 


56 


69 


8D 


6950- 


54 


CO 


8D 


00 


CO 


60 


A3 


A5 


6958- 


08 


24 


09 


30 


20 


C9 


5A 


FO 


6960- 


04 


C9 


SF 


DO 


02 


A3 


Al 


C9 


6968- 


4C 


i'O 


04 


C9 


DF 


DO 


02 


A3 


6970- 


AD 


C9 


SI 


DO 


02 


A3 


F6 


CP 


6978- 


52 


DO 


02 


A3 


DE 


31 


EB 


60 


6980- 


C9 


09 


BO 


07 


AO 


00 


84 


EB 


6988- 


4C 


AO 


69 


C9 


11 


BO 


OA 


AO 


6990- 


28 


84 


S3 


38 


E9 


08 


4C 


AO 


6998- 


69 


AO 


50 


84 


EB 


38 


E9 


10 


69A0- 


AO 


04 


84 


EC 


AA 


CA 


FO 


10 


69A8- 


18 


AS 


80 


65 


EB 


85 


EB 


A9 


69B0- 


00 


65 


EC 


85 


EC 


CA 


DO 


FO 


69B8- 


60 


A2 


FF 


A3 


58 


AO 


IB 


88 


69C0- 


DO 


FD 


2C 


30 


CO 


A8 


88 


DO 



Pom's n 25 



15 





INC 


COL 






LDA 


#$A0 






LDA 


AFFI.L 




LDA 


l$AU 


... „ 




JSR 


COUT 






ADC 


#16 




STA 


CAR 






LDA 


#$AC 






STA 


AFFI.L 




JSR 


COL. LIS 






JSR 


COUT 






LDA 


4$00 




INC 


COL 






LDA 


i$BA 


. IV * If 




ADC 


AFFI.H 




LDA 


t$52 


; "P." 




JSR 


COUT 






STA 


AFFI.H 




ST A 


CAR 






LDA 


f$AQ 






TYA 






JSR 


COL. L1C 






JSP 


COUT 






JMP 


AFFO 




RTS 








LDA 


#60 




AFF 7 


KTS 




it**************************-*** 




STA 


COL 




*************************** 


* . AFF1 CHER . LUNTENU. DU. BUFFER . * 




FLA 






* . AFF I CHER . BUFFER+CURSEUR . » 


****** 


************************ 










*************************** 


AFF 


LDA 


L.LB 






TAX 






AFF. 


JSR 


AFF 




STA 


AFFI.L 






INX 








JSR 


AFF. CUR 




LDA 


L.HB 






TXA 








RTS 






STA 


AFFI.H 






STA 


LIG 








LDA 


t$Q7 


;LIC8 




LDA 


t$00 




*. CHARGER. ET 
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R.S.P.D.: Utilitaire de Lecture et d'Ecriture sur disks ProDOS par Marc ROGLIflNO 



Cofnmqndes: 

CESC: 
qui tter 



* * T -ir : emplacements sur I "scran 
£ 4 * : Dep lacements sur Disquette 
M : Dep lacements C*10> 
ESPRCE : Changer de Page 
OCTET : 



"B 
'C 

*S 
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Entrer caracteres 
Entrer un Block 
Changer de Lecteur 
Sauuer sur Disquette 
Switcher Carac teres 
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Pom's n" 25 



Roland Jost 



Void un programme qui 
pcrmct dc manipulcr dcs 
images graphiques en 
donnant dcs cffets de 
miroir. II est aussi le pretexte a 
une etude dc l'organisation dcs 
pages graphiques de Apple. II 
permet aussi d'illustrer le difficile 
compromis entre gain de temps et 
gain de place. 




La page graphique 
de I'Apple 

La haute resolution de I'Apple est 
de 280 x 192 = 53760 points. Or 
une page HGR ne mobilise que 
8192 octets. Ceci est obtemi en 
stockant l'etat de 7 points 
consecutifs d'une ligne dans les 
bits a 6 d'un octet, le bit 7 
contenant le mode couleur. On 
reduit ainsi de 8 fois la taille 
memoire necessaire pour la page 
graphique. L'inconvenient est que 
ccla ne facilite pas l'adressage 
point par point. Le probleme 
serait asset simple a resoudre, 
mais l'ecran HGR est divise en 3 
zones de 8 groupes de 8 lignes. 
En memoire, les 1 92 lignes de 40 
octets ne se suivent done pas de 
facon sequentielle (cf les adresses 
des lignes dans POM'S n'l). Ces 
adresses peuvenl se calculer, par 
exemple par la formule utilisee 
dans Edigraph (POM'S tC2i% 

Mais mSme en assembleur, ce 
calcul prend du temps, surtout s'il 
doit etre repete de nombreuses 
fois. Une mithode plus rapide, 
utilisee dans de nombreux jeux est 
l'uti lisation d'une table 
d'adresses, en fait dc deux tables, 
la premiere contenant l'octet bas, 
la seconde l'octet haut. Cette 
methode a l'inconvenient de 
prendre beaiicoup de place (384 
octets). On peut trouver un 
compromis entre ces deux 
methodes en utilisant la regularite 
de la table pour huit lignes 
successives. La table est alors huit 
fois moins importante (seulement 
48 octets). II faudrait dgalemem 



une table des octets hauts 
differente pour la page IIGR et 
pour la page HGR2. Une table 
unique suffit, a condition de 
raj outer la valeur contenue dans 
$E6 ($20 pour la page HGR, $40 
pour la page HGR2). JANUS 
sera done actif sur la page en 
cours, sans qu'il soit necessaire 
de specifier son numero. Au prix 
d'un leger ralentissement du 
programme (environ un centieme 
de seconde), on parvient done a 
reduire i'encombrcmcnt de la tabic 
des adresses de 476 octets a 
seulement 48 octets. 

Miroirs 

Obtenir l'image dans un miroir 
d'une page graphique est facile 



quand on a calcuie les adresses 
des lignes. 

Pour un miroir horizontal, il suffit 
de permuter la premiere ligne avec 
la derniere, la deuxieme avec 
1'avant-demiere, etc. 

Pour un miroir vertical, le 
principe est de permuter la 
colonne (192 octets) avec la 
colonne 39, la colonne 1 avec la 
colonne 38, etc. Mais il faut de 
plus prendre l'image dans un 
miroir des bits a 6 de chaque 
octet sans toucher au bit 7, 
e'est-a-dife passer par exemple de 
01101000 a 00001011. 

La encore ce travail pcut etre 
effectue soit par un sous- 
programme cumme celui qui est 



Comrnent faine ? 



Saisir puis sauvegarder ta recapitulation 'JANUS'. 
Dans un programme Basic, il faut, pour bSneficier des effets de 
miroirs. charger la routine par BLOAD JANUS (se reporter au 
programme de demonstration). 

Les possibiiite's de la routine sont les suivantes : 

call 3 68 64, H, Retournement horizontal 

call 3 68 64, v, o gauche <-> drorte 

call 36864 , it , i Moitie superieure reflechie dans moitie interieure 

call 3 ss 64,v r i Moitie gauche rifiechie dans moitid droito 

De plus, on dispose des combinaisons suivantes : 



CALL 36364, 3, O 



CALL 3 6S64,V,0 



CALL 3 6864, H,l 

Moitie gauche dans partie droits 

CALL 3 6864, B t 

Rotation 180', combsnaison des 2 symetries 
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preseute ci-dessous, soit & I'aide 
dune table. 



Recapitulation 'JANUS' 



ROLL STA $08 ; sauve I'octet 4 

in verier 
ROL A ; le bit 7 est mis 

dans fa relenue 
ROL A ; ddcale A A gauche ei 

relenue dans bit 
LOY *$07 ; ilfaut le fairs 7 

fois 

R0LL1 LSR $08 ; le bit est mis 
dans la reienue 
ROL A ; reienue dans bit 

et d&cale d gauche 

DEY 

BNE SOLL1 
RTS 

Avec la premiere solution 
l'inversion se fait en plus d'une 
seconde ; avec la seconde le 
programme va trois fois plus vite. 
Ceci s'expliquc facilement par le 
fait que chacun des octets doit etre 
permute, soit 8192 permutations. 
Le mnindre gain de vitesse k ce 
niveau est done plus 
qu 'appreciable. C'est pourquoi 
nous choisirons cette demiere 
methode. 

JANUS permet encore d'obtenir 
dans la moitie inferieure de 
1'ecran, le reflet de la partie 
superieure. De meme pour les 
parties gauche et droite. II s'agit 
dans les deux cas d'arrdtcr la 
recopie au milieu de I'ecran, 



mojiiteur, vous le sauveqsrdere 
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AS 


07 


ES 


06 


9060- 


BO 


CE 


60 


EC 


EE 


AO 


ED 


20 


9068- 


AD 


90 


85 


18 


84 


IS 


A4 


EB 


9070- 


64 


06 


A4 


EC 


84 


7 


A4 


06 


9078- 


Bl 


18 


A8 


B9 


00 


91 


A4 


1 F. 


9080- 


DO 


oc 


48 


A4 


7 


Bl 


1 8 


A8 


9088- 


B9 


00 


91 


85 


1C 


68 


A4 


07 


9090- 


91 


18 


A4 


IE 


DO 


06 


AS 


1C 


9098- 


A4 


06 


91 


18 


E6 


06 


C6 


07 


90 AO— 


3B 


A5 


07 


'-' c , 
i- j 


U u 


Rr> 
DU 


J 1 " IT 
i_r 


Ej a 


QOAfl- 


F.4 


F.F. 


no 


m 


60 


8A 


4A 


4A 


9OB0- 


4A 


A3 


39 


C4 


90 


48 


8A 


29 


90B8- 


07 


OA 


OA 


18 


79 


DC 


90 


65 


90C0- 


ES 


A3 


68 


60 


00 


80 


00 


SO 


90C8- 


00 


80 


00 


90 


28 


AS 


23 


A3 


90D0- 


28 


A8 


28 


A8 


50 


DO 


50 


DO 


Qonn- 


50 


DO 


50 


DO 


00 


00 


01 


01 


90EO- 


02 


02 


03 


03 


00 


00 


01 


01 


90E8- 


02 


02 


03 


03 


00' 


00 


01 


01 


9QFU- 


02 


02 


03 


03 


00 


00 


00 


00 


90F8- 


00 


00 


00 


00 


00 


00 


00 


00 



Apres avoir saisi ce code sous 

par BSAVE JANUS, A$9Q00, LS200 



91 00— 


00 


4 




5 is 


J. V 


J u 


13 f\ 
J V 


/ V 




nst 
uo 


1 <3 


Z (3 


68 
D o 


L O 


JO 


JO 


7 P 
i o 


911 0— 


04 


4 4 


24 


64 


1 4 


54 


34 


74 


9118- 


OC 






dC 


1C 






JC 
/L. 


9120- 


02 


42 


22 


62 


12 


52 


32 


72 


9128- 


OA 




OA 








J ft 


in 


9130- 






£ y 


p p 




J D 


J C 






OF 






£ P 




Z'Z, 


IF 
JCd 


7F 


91 4 0- 


01 


41 


21 


6JE 


11 


51 


31 


71 


9148- 


09 


49 


29 


69 


1 9 


59 


39 


79 


9150- 


05 


45 


25 


65 


15 


55 


35 


75 


9158- 


0D 


4D 


2D 


6D 


ID 


5D 


3D 


7D 


9160 


03 


43 


23 


63 


23 


53 


33 


73 


9168- 


OB 


43 


23 


63 


IB 


SB 


3B 


7B 


9170- 


07 


47 


27 


67 


1 7 


57 


37 


77 


91 78- 


OF 


4F 


2F 


6F 


IF 


5F 


3F 


7F 


9180- 


80 


CO 


AO 


EO 


90 


DO 


BO 


FO 


9188- 


88 


CB 


A8 


E8 


98 


D8 


B8 


F8 


9190- 


84 


C4 


A4 


B4 


94 


04 


B4 


F4 


9198- 


8C 


CC 


AC 


EC 


9C 


DC 


BC 


FC 




82 


C2 


A2 


E2 


92 


D2 


B2 


F2 


91A9- 


8A 


CA 


AA 


EA 


9A 


DA 


BA 


FA 


91B0- 


86 


C6 


A6 


ES 


SS 


D6 


BS 


F6 


91B8- 


8E 


CE 


AE 


EE 


9E 


DE 


BE 


FE 


91C0- 


Hi 


CI 


Al 


El 


91 


Dl 


Bl 


Fl 


91C8- 


89 


C9 


A9 


E9 


99 


09 


B9 


F9 


91D0- 


85 


C5 


AS 


E5 


9b 


DS 


B5 


F5 


91D3- 


8D 


CD 


AD 


ED 


9D 


DD 


BD 


FD 


91E0- 


83 


C3 


A3 


E3 


S3 


D3 


B3 


F3 


31E3- 


SB 


CB 


AB 


EB 


93 


DB 


BB 


FB 


91F0- 


87 


C7 


A7 


E7 


97 


D7 


B7 


F7 


91F8- 


8F 


CF 


AF 


EF 


9F 


DF 


BF 


FF 



Ul 

1 

CD 

£ 
E 
□ 
c 

d 
O 
X 

CD 

W 



3 
<D 
fi 
<B 

D - 

in 
T> 
4J 

i 

3 

In 

N 

Hi 

>, 

< 



Vs. 



Programme 
'JANUS.DEMO' 



10 
12 



REM 
REM 



DEMO. JANUS 
R.JOST 2 995 



15 Pti TUT CHRS 
20 TEXT : HOME 
30 A - 36864 
40 m » "IMAGE" 
50 HGF : POKE 
GOSUB 600 
GOSUB 500 
CALL A,H,0; 
CAT.l. A,M r 0: 
CALL A,V,0: 



14) "BLOAD JANUS" 



16302, 



60 
65 
70 

an 

90 
100 
110 
120 
124 
126 
130 
140 
144 
146 
ISO 



GOSUB 500 
BOSUB 500 
GOSUB 500 



CALL A, V, 0: GOSVB 500 
CALL A r V, I : GOSUB 500 
GOSUB 600 

CALL A,H,0: CALL A, 8,1 
GOSUB 500: &QSUB 600 
CALL A,V,0; GOSUB 500 
CALL A.V.I: GOSUB 500 
CALL A.H.O: CALL A,H,1 
GOSUB 500 
GOSUB 600 



170 G0SU3 500 
ISO TEXT ! END 

500 FOR T - 1 TO ZC00: NEXT ; ZZ - 
PEEK ! - 16336) + PEEK 1-163 

36) i RETURN 
600 PR1HT GMR$ (4) "BLOAD "Nf",A$2 

000": RETURN 



Source 
'JANUS.S' 

Assembleur MERLIN 



2 if****!***-**-**-*-*****-**:** 

2 * * 

3 * JANUS * 

4 p * 

$ * t t ********** X K * * ****** *** 

6 * 

7 * R.JOST 

8 • Assembleur MERLIN 

5 * 



REFLET D'UNE PAGE 8GR 

SynLaxe : CULL 36864, MODE, OPT 

MCinF.-H ;MIR0m HORIZONTAL 
-VlMIROIR VERTICAL 
16 *0PTION=0 i IMAGE DE TOUT L'ECRAN 



10 
11 
12 

13 

14 
15 



17 


. _ 


1 :MOTTTF KCRAN RFFf. 




E 


DAN3 


L 'AUTRE 


IS 


'SUPERIEURE - 


> INFERIEURE 


19 


*GAUCHE 


-> DROTTF. 


20 


* 






21 


*************************** 


?2 


* 






23 








24 


ZJ 


EQU 


$06 


25 


22 


SOU 


$07 


26 


DEPART 


EQU 


sie 


27 


ARRIVEE 


EQU 


flA 


28 


TAMPON 


EQU 


sic 


23 


OrTION 


SOU 


S1E 


30 


PAGE 


EQU 


$E6 


31 


XI 


EQU 


SEB 


32 


X2 


EQU 


?EC 


33 


tl 


EQU 


SEC 


34 


Y2 


EQU 


SEE 



22 



Pom's n° 25 



37 CHRCET 

38 CHKCOM 

39 GE7B YTC 

40 * 

41 * 
42 

43 * 

44 * 
45 
4€ * 
47 
48 
49 
SO 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
€4 

65 * 

66 ' 

67 * 

69 II 
69 

70 



EQU SO0S1 
SUU $DEBE 
EQU $E6F5 



ORG $9000 



SAISIE DBS PARAMETRES 



jsn 

STA 
JSR 
JSR 
STX 
TUX 
STX 
STX 
LDX 
STX 
LDX 
SIX 
LDA 
CMP 
BEO 
CMP 
BEQ 
RTS 



CHKCOM 
MODE 
CSRGET 
SETS YTC 
OPTION 

to 

XI 

ri 

139 

X2 
1191 

ii 

MODE 
t$48 
II 

ttss 

12 



Minors HORIZONTAL 



INC X2 
LDX n 



STX 21 




71 




LDX 


12 














72 




STX 


Z2 


109 


STA 


DEPART 


146 


A 




73 


BOU1 


LDX 


21 


110 


STY 


DEPART* 1 


147 


* Csleul l'adresse d'une llgne 


74 




JSR 


CALCADR 


111 






148 


* 




75 




STA 


DEPART 


112 


LDI 


XI 


149 


CALCADR TXA 




76 




STY 


DEPART+1 


Us 


STY 


Zl 


150 


LSR 




77 








114 


LD¥ 


X2 


151 


LSR 




78 




LDX 


Z2 


115 


STY 


Z2 


152 


LSR 




79 




JSR 


CALCADR 


11$ BQ2 


LEY 


Zl 


153 


TAY 




so 




STA 


AHRIVEE 


117 


LDA 


{DEPART), Y 


154 


LDA 


TAB1L, Y 


81 




ST? 


ARRIVEE+1 


118 


TAT 




155 


PSA 




82 








119 


LDA 


PERMUT, r 


156 


TXA 




83 




Lor 


XI 


120 


LDY 


OPTION 


157 


AND 


tiOOOOOlll 


84 


B0U2 


LDA 


(DEPART) , Y 


121 


BNE 


SOIT2 


153 


ASL 




35 


* 






122 


PHA 




159 


ASL 




86 




LDX 


OPTIQX 


123 


LDY 


Z2 


160 


CLC 




87 




BNE 


SUIT1 


124 


LDA 


(DEPART) , Y 


161 


ADC 


TABlH, y 


98 




PSA 




125 


TAY 




162 


ADC 


PAUSE 


09 




LDA 


(ARRIVES) , ¥ 


126 


LDA 


PERMUT, Y 


163 


TAY 




90 




STA 


{DEPART), X 


127 


STA 


TAHPON 


164 


PLA 




91 




PLA 




128 


PLA 




165 


RTS 




92 


SUIT1 


STA 


{ARRIVES) , Y 


12 S SVIT2 


LDY 


22 


166 






93 




INY 




130 


STA 


(DEPART) , Y 


167 


* TABLES DBS 


AORSSSES UGR 


94 




CP I 


X2 


131 


LDY 


OPTION 


168 


* ucrtrr OAs 


35 




BNE 


BW2 


132 


BNE 


SUIT3 


169 


* 




96 




INC 


21 


133 


LDA 


TAMPON 


170 


TABU DFB 


$00, $80, $00, $80, S 


97 




DEC 


Z2 


134' 


LDY 


Zl 






00, 980, $00, S8Q 


98 




SEC 




135 


STA 


(DEPART) , Y 


171 


DFB 


$28, $A8, $28, SA8, $ 


99 




LDA 


Z2 


136 SUIT3 


mc 


Zl 






28, $AB, $28, $A8 


100 




SBC 


Zl 


137 


DEC 


Z2 


1 72 


DFB 


$50, $D0, $50, $D0, $ 


101 




BCS 


6001 


138 


SEC 








50, SDO, $50, $D0 


102 




RTS 




139 


LDA 


Z2 


173 


* 




103 


* 






140 


SBC 


Zl 


174 


* TABLES DES 


ADRESSES HGR 


104 


* MIROIR 


VERTICAL 


141 


BCS 


B02 


175 


» OCTET HAUT 


105 


A 






142 


INX 




176 


* RAJOUTER $20 POUR PAGE 1 


106 


12 


INC 


r2 


143 


CPX 


Y2 


177 


* 00 $40 POOH 


PAGE 2 


107 




L1>X 




144 


BNE 


BOl 


178 


* 




108 


BOl 


JSR 


CALCADR 


14S 


RTS 




179 


TABIR HPS 


$00, $00, $01, $01, S 



Pom's n° 25 



23 



ISO 
181 
IBS 



02, $02, $03, $63 
DFB $00, $00, $01, $01, $ 

02, $02, $03, $03 
DFB SOO, $00, $01, $01, $ 

02, SOS, $03, $03 



183 


* TABLE 


D • INVERSION 


134 


* 






185 




DS 


$9100-' 


186 


PERMVT 


DFB 


$00, $40, $20, $60,$ 
10, $50, $30, $70 


137 




DFB 


SOB, $40, $28, SCO, $ 
18, $58, $38, $78 


188 




DFB 


$04, $44, $24, £64,$ 
14, $S4, $34, $74 


189 




DFB 


$0C,$4C,$ZC,$6C,$ 
1C, $5C.$3C.$7C 


190 




DFB 


$02, $42, $22, $62, S 
12, $52, $32, $72 


1 SI 




DFB 


$0A,$4A, $2A,S6A,$ 
1A, iSA, S3A, $7A 


132 




DFB 


$06, $46, $26, $66, $ 
16, $56, $36, $76 


193 




DFB 


$0E, SSE, $2E, SSE, $ 
IE, S5E, $3E, $7E 


194 




DFB 


$01, $41, $21, $61, $ 
11, $51, $31, $71 


195 




DFB 


$09, $49, $29, $69, $ 
19, $59, $39, $79 


196 




DFB 


$05, SIS, $25, $65, S 
15, $55, $35, $75 


197 




DFB 


$QD,$4Q, $2D,$6D,$ 
ID, $ 5D, $ 3D, $7D 


198 




DFB 


$03, $43, $23, $63, $ 
13, $53, $33, $73 


159 




DFB 


SOB, S4B, $23, S6B, $ 
IB, $5B, $3B, $7B 


200 




DFB 


$07, $47, $27, $67, $ 
17, $57, $37, S77 


201 




DFB 


$0F, $4F, $2F, $6F f $ 
IF, $5F, $3F, $7F 


202 








203 




DFB 


$80, $C0, SAO, $E0, $ 
90, $00, $B0, $F0 


204 




DFB 


$89, $C8, $A9, $E8, £ 
98, $DS, $BS, $F8 


205 




DFB 


$84, $C4, $A4, $E4, $ 
34, $D4, SB4, $F4 


206 




DFB 


$SC, $CZ, SAC, $EC, $ 
9C, $DC, SBC, $FC 


207 




DFB 


$92, fC2, SA2, SE2, $ 
92, $D2, $B2, $F2 


208 




DFB 


$8A,$CA, $M,$EA,$ 
9 A, SDA, SUA, SFA 


209 




DFB 


$86, $CC, $A6, SE6, $ 
96,$DS,SB6, SF6 


210 




DFB 


$8E, $CE, SAE, SEE, $ 
9E, $DE, $BE, $FE 


211 




DFB 


$81,$C1,$A1, $E1,$ 
91, $D1, SB!, SFJ 


212 




DFB 


$89, $C9, $A9, $E9, $ 
99, SD9, SB 9, $F9 


213 




DFB 


$B5, Sffl, $A5 r SES, $ 
95, $D5, $B5, $F5 


214 




DFB 


$8D, 5 CD, SAD, SED, $ 
9D, $DD, $BD, $FD 


215 




DFB 


$83, $C3, $A3, $E3, $ 
93, $D3, $33, SF3 


216 




DFB 


$8B, $CB, SAB, SEB, S 
9B, $D3, $3B, $FB 


217 




DFB 


$87, $C7,$A?,$E7,$ 
97, SD7, SB 7, $F7 


218 




DFB 


$8F, $CF, $AF, $EF, $ 
9F, fW, $t)F, $FF 



Inhiber le Reset 

en ProDOS 

Bruno Fenart 



La methode pour inhiber le CTRL-RESET est bien coimue en DOS 
3.3 (voir "clef pour l'Apple //e" de N. Brcaud-Pouliqucn aux 
Editions du PSI, on "All About Dos" de Call-Apple). En ProDOS, 
e'est plus complique car il faut revectoriser soi-meme les vecteurs 
d'en tree/sortie. 

Quelle que soit la solution rctcnuc, la routine dc revectorisation devra 
reinttialiser la pile pour eviter le 'Out Of Memory Error' apres 
quelques RESETs. La routine suivanie pourrait etre adoptee : 



3F2 r 00 


03 


A6 






; Revectorisation du reset 


300 :A2 


03 




LDX 


#$03 




302 :BD 


31 


BE 


LDA 


$BB34,X 


,-vcctcurs d'E/S ProDOS 


305:95 


36 




STA 


$36, X 


; vecteurs d'E/S 


307-.CA 






DEX 






308:10 


F8 




BPL 


$302 




30A-.A2 


FF 




LDX 


#$FF 


/Reinitialise la pile 


30C;9A 






TXS 






30D:20 


93 


DS 


JSR 


$DS98 


: com 


31 : 4C 


DZ 


D7 


JMP 


$D7D2 


; NEW START 



CeLte solution peut entrainer des erreurs et elle n'est pas utilisable si 
1'affichage du programme est en 80 colonnes. Cest pourquoi on peut 
avoir interet a utiliser une autre solution qui consisterait non pas a 
retourner a la ligne oil a eu lieu le CTRL-RESET, mais comme pour 
un traitemem d'erreur, a effectuer un branchement vers une ligne 
donnee (ici vers la ligne 20). Si cette ligne n'existe pas on obtient 
"7UNDEFD STATEMENT ERROR" comme pour un GOTO sur 
une ligne nrm definie : 



300 :A2 


03 




LDX 


#$03 




302 :BD 


34 


BE 


LDA 


$RR34, X 


/vecteurs d'E/S ProDOS 


305:95 


36 




STA 


$36, X 


/vecteurs d'E/s 


307 ;CA 






DEX 






308:10 


F8 




BPL 


$302 




30A :A2 


FF 




LDX 


#$FF 


/Reinitialise let pile 


30C:9A 






TXS 






30D:A9 


14 




LDA 


#$14 


/Ligne n'20 


30F:85 


50 




STA 


$50 


/ LINNUM 


311 :A9 


00 




LDA 


#$00 




313:85 


51 




STA 


$51 


/LINNUM+1 


315:20 


41 


D9 


JSR 


$D941 


/GOTO (3 


318 :4C 


D2 


D7 


JMP 


$D7D2 


/NEWSTART 



Le programme Basic devra alors avoir la forme suivante : 

10 GOTO 1000 
20 GOTO 1500 

1000 REM D6but du programme 

1500 REM Frlse en charge apres le ctrl-reset 



24 



Pom's n* 25 



Claude 'COMPDISK' Vivier 

ou 'sont-elles vraies jumelles ?' 



Qui d'enlre nous n'a jamais eu 
entre les mains des versions 
"peut-etre" identiques d'un jea ou 
dun quclconque logiciel situe sur 
des disquettes non stxucturees en 
fichiers et/ou protegees. Dans 
cette situation -pas quotidienne il 
est vrai- il est iiaLurel de chercher 
a comparer de telles disquettes. 
Mais, si les programmes de 
comparaison de fichiers ne 
manquent pas sur le marche, on 
ne peut en dire autant des 
comparateurs de disquettes vues 
globalement. Une solution 
consiste a, utiliser le programme 
"Zap" du Bag of Tricks en 
construisant une grosse macro- 
commande, encore faut-il que les 
disquettes se laissent faire !... 

Voici done un programme en 
assembleur qui permet de 
comparer toutes les disquettes 
seize secteurs de format standard 
on legerement "hors-normes". 

Le principe 

II a paru interessant de travailler 
au niveau de la piste complete 
transferee en memoire plutot que 
d'acceder au disque secteur par 
secteur, Bien sur, en dernier 
ressort il fant arriver a la notion 
de secteur mais, d'une part, il y a 
gain de temps du fait du nombre 
limits d'acces disques, et ensuite 
nous sommes moins tributaires 
des gadgets des protectees de 
logiciels, les controles ayant etc 
volontairement limites au strict 
necessaire. Jl n'esL fail aueune 
reference a la notion de fichier. 



Utilisation 

Le programme doit etre situe sur 
une disquette DOS 3,3 ou 
apparente"e et necessite deux 
lecteurs. L'affichage 80 colonnes 



et les minuscules ont ete ecartes 
de fagon a s'adapter a toutes les 
configurations. 

II se lance par : 

BRUN COMPDISK. 

Un premier ecran demande 

* d'installer les deux disquettes 

sur les deux lecteurs ; 
■ d'mdiquer le type des 

disquettes testees (Dos, Pascal, 
Prodos, CP/M, ou Inconnu si on 
l'ignore) au moyen d'un chiffre 
de 1 a 4 ; ceci afin de pouvoir 
afficher un numero de secteur 
correct en cas de dif ferences. 

II faut rappeler, en effet, que pour 
chaque systeme d'exploitation il 
existe une table de correlation 
entre le numero de secteur 
physique (celui qui est ecrit sur le 
disque) ct 1c numero de secteur 
logique (celui par lequel 
l'utilisateur accede a ce secteur). 
Si Ton a entre l'option 4 (systeme 
inconnu), e'est le numero de 
secteur physique qui sera affiche, 
bien entendu. 



13 

'3 
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Apres avoir saisi et 
sauvegarde la 
recapitulation 
COMPDISK, sur une 
disquette DOS 3.3, pour 
comparer deux 
disquettes ,f aire ; 

BRUM COMPDISK 



puis indiquer le type de DOS 
s'il est connu. Valider alors 
par ESC ou RETURN 
selon que la disquette est 
protegee ou non. Dans le 
premier cas, vous devrez 
indiquer le prologue obtenu 
a I'aide d'un utilitaire du 
type TRAX. Le defilement 
des secteurs qui different est 
controls par ESP ACE. 



Le programme demande ensuite 
s'il s'agit d'une disquette nor male 
(en gros, copiable par COPY A) 
ou "protegee". Dans le premier 
cas, <Return> fait partir la 
comparaison. Dans le deuxieme 
cas, <ESC> amene un deuxieme 
ecran qui explique que les 
disques standard sont formates 
avee, pour chaque sccteur le 
prologue d'adresse D5AA9-6, et 
le prologue de Data D5AAAD 
(dans le programme, le nibble AD 
n'est pas exige). Cenaines 
disquettes protegees respondent a 
ce schema, dautres non. 11 existe 
plusieurs programmes qui 
montrent ces prologues (le Trax 
du Bag of Tricks par exemple). 

II est alors demande ou hien de 
frapper <Retum> pour accepter 
les prologues proposes, ou bien 
de saisir les prologues des 
disques a comparer. Finalement 
un <Return> de confirmation fera 
partir le programme. 

La progression du programme est 
suivie par affichage des pistes 
testees, et, en cas de difference, 
des numeros de secteur, de la 
premiere position differente dans 
le secteur, et pour les disquettes 
Prodos, Pascal et CP/M le 
numero de bloc et de partie de 
bloc. En fin de parcours, on 
pouira comparer un autre couple 
de disques, sans recharger le 
programme. 

Analyse du 
programme 

Lignes 103-225 

• Patch du programme pour 
valeurs standard des prologues. 

• Affichage des choix. 

• Saisie des parametres (systeme 
et nibbles de reconnaissance). 

■ Patch du programme avec ces 
differents parametres. 
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Lignes 226-250 

• calage du bras dc lectcur 2 sur 
la piste (routine de la PROM du 
eontroleur) ; operation indispen- 
sable poor eviter de gros deboires 
dans la recherche des pistes. 

Lignes 253-307 

• boucle generate de traitement. 
Chaque couple de pistes de a 34 
est transfere en memoire ($2000 
pour I et $4000 pour II) pour etre 
compare. A la fin, retour possible 
au debut ou sortie vers le 
warmstart du Dos. 

Lignes 311-371 

• routine de Dump memoire 
d'une piste. 

• Alimentation de la "parameter 
list" qui controle la procedure 
RWTS ; on met dans le 
parametre de "commands" 
(Search) 

• Appel a RWTS, qui amene le 
bras du lecteur sur la piste choisie 
sans manipuler encore 
deformations. Pour cette ctape, 
il n'y a pas eu de reference au 
numero de piste code dans le 
champ d'adresse des secteurs de 
cette piste (code frequemment 
altere sur les disques proteges). 

• Lecture des nibbles de la piste 
vers la memoire. A noter que les 
instructions 362-369 sont tres 
critiques. Pour qu'il n'y ait pas 
de perte d'information, un petit 
calcul montre que le delai entre 
deux lectures de nibbles ne doit 
pas exceder 31 microsecondes, 
on y arrive tout juste. L'ensemble 
de cette routine de dump est 
valable pour les 2 pistes I et II. 
$2000 nibbles sont ainsi 
uansferes, suit tres largement une 
fois la piste. 

Lignes 375-423 

• Boucle gencralc dc compa- 
raison des 16 secteurs de la piste. 

• Recherche du premier seeteur 
disponible de la piste I, 
normalement anttonce par 
D5AA96, avec sauvegarde, en 
passant, des nibbles donnant le 
numero de seeteur (physique, 
bien sur). 

• Recherche du seeteur 
homologue sur piste II (voir plus 
loin). 

• Comparaison des 2 secteurs 
(voir plus loin). 

V 



• On continue sur le seeteur 
suivant de la piste I jusqu'au 
I6eme. A chaque fois que Ton 
explore la piste II a la recherche 
du seeteur frere, on repart 
toujours du debut de la piste, 
alors qu'on serait tente, une fois 
qu'un couple de secteurs est 
"accroche", de poursuivre 
l'expl oration sequenticllcmcnt sur 
les 2 pistes, quitte a dumper au 
moins 2 fois la piste II. Ce choix 
a ete fait afin d'eviter de declarer 
differentes des disquettes 
formatees avec des "empla- 
cements" differents, alors 
qu'elles sont identiqucs quant au 
contenu. Certains copieurs ne 
respectent pas l'entrelacement de 
roriginal (COPYA par exemple 
qui commence une copie par un 
IN1T standard). La perte de 
temps qui resulte de cette maniere 
de faire est d'ailleurs tout a fait 
negligeable. 

Lignes 427-478 

• Procedure de recherche du 
seeteur homologue II. Des qu'un 
seeteur est trouve, son numero 
est teste" par rapport au numero 
sauvegarde du seeteur I. Au 
debut de cette routine, la frappe 
dc n'importc quelle touchc 
suspend le traitement. Si on ne 
trouve pas sux tuule la piste (de 
merae d'ailleurs pour la piste I), 
les nibbles de prologue, tels 
qu'ils ont ete definis en debut de 
programme, la piste est declaree 
illisible et affichee comme telle 
(lignes 684 a 728). Des que les 
puiiitcurs de balayage des 2 pistes 
sont en debut de la partie Data du 
seeteur, la comparaison peut 
commencer. On sauvegarde a ce 
moment les valeurs des pointeurs 
(lignes 474-478). 

Lignes 482-493 

• Routine de comparaison des 
342 nibbles du seeteur. Des qu'il 
y a discordance, la comparaison 
est arrctee et il y a branchement 
sur... 

Lignes 504-656 

• Gestion de la premiere 
difference trouvee sur le seeteur. 
II s'agit de trouver la position cn 
cause non pas en termex de 
nibbles mais d'octets "visibles" 
tels qu'on les connait 



habituellement. II semble, apres 
longue reflexion, que la meilleure 
solution pour avoir, a coup sur, 
la premiere divergence est de 
recourir a la denibbilisation 
classique de la routine RWTS. Le 
seeteur I est completement decode 
en $7100 (buffer secondaire en 
$7000). (Done si on frappe sur 
Reset en cours ds traitement, un 
coup doeil en $7100 donnera le 
dernier seeteur trouve different 
sous forme decodee). On fait de 
meme pour le seeteur II en 
arretant la procedure des qu'il y a 
discordance (buffers en $8100 et 
$8000). La position trouvee est 
alors mise en reserve (ligne 552). 
Ensuite vient la routine 
d'affichage des resultats trouves 
Opiste, seeteur logique, position), 
avec, s'il s'agit de la premiere 
difference trouvee, affichage dun 
en-tete de presentation (lignes 
553 a 574). 

• Un petit calcul (lignes 
612-656) donne le bloc en cause 
s'il y a lieu, Une petite remarque 
au sujet des instructions 545 et 
550 : il sc pcut que 1'on trouve 
une difference a 1'examen des 
nibbles et que celle-ci disparaisse 
apres denibbilisation. La raison 
en est que les nibbles de rang 
$54,55 ne sont que partiellement 
utilises dans la denibbilisation; 
ccci cxplique que le decodage du 
seeteur est fait avant d'ameuter 
les populations. 

Lignes 660-905 

Routines diverses de sorties de 
message, saisic des prologues, 
conversion hexa, patches etc. . . 

Performances 

Duree du traitement : 

Deux disquettes identiques : 2 mn 

05 s 

Disquettes completement diffe- 
rentes : 2 mn 20 s 
Temps consacre a la recherche 
des pistes : 1 mn 30 s 

Attention : Ce programme ne 
fonctionnera pas ou tres mal avec 
des disquettes 13 secteurs. II faut 
se mcfier de certaines disquettes 
deguisees en 16 secteurs mais qui 
en fait sont des 1 3 secteurs. Elles 
riootent' normalement, mais des 
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le premier etage du boot il y a 
transformation du Dos en l'autre 
format. 

Pour ceux qui en auraient encore 
doute, ce petit travail n'aurait pas 
pu etre fait sans references 
permanentes au Hvre de Don 



Worth ct Pictcr Lechner "Beneath 
Apple Dos", er je ne voudrais pas 
terminer sans redire, a mon tour, 
tout le bien qu'il faut penser de 
cet ouvrage. Pour les neophytes 
curieux de savoir ce qu'il y a 
reellement sur un disque, l'dtude 



du chapitre 3 est passionnante. 

N.D.L.R. : il est preferable de 
faire un FP apres la sortie du 
programme, voire de 'rebooter' 
car le DOS est modifie. 

□ 



Source COMPDISK.SCE 


TEXT 
VTAB 


EQU SFB33 
EQV SFC22 




JSS PRINT 

ASC "- PUIS, S'lL S'AHIT BE BISQUEIT 


Assembieur LISA 2.5 


HOME 


EQU SFC5S 




es tjat- 








NaIT 


£00 SFCA1 




hex som 








RDCHAK 


EQU SFD35 




ASC " PROTEGEES frwper <return 


.*************************** 


************ 


CROUT 


SOU iFUSE 




J" 




** 


u 


COOT 


EQU fFOEO 




BEX IB SB 




.- * FHOSRAWffi DE COMPARAISOti GLOBALE • 


PRBYTE 


EQU SF&DA 




ASC " 


SINON FRAPPER <TESC>" 


:' BE OISOUETTES 16 SECTEURS * 


BELL 


equ frp)A 








• * 


* 






'3 


BIT KBDSTRB 






# 




ORG S7FB 


-4 


LDA mc 




** 


* 








BPL <4 




j* 


LISA 2-5 * 




JNP DEBUT 




CMP IRET 




f ************************** ************* 


PML 


nrs 1 .-INDEXATION DE 




BNE >5 




t 






L4 J>ML 




JMP START 




KtX 




PSLOT 


DPS I 


»J! 


CHP IESC 




f 




PDSV 


OPS 1 




BME r3 




i •' HUM BE TRAVAIL 




PYQL 


BPS f 


PSOL 


JSR BOMB 


.■AFFICHAGF PmiB 


; 




PTRK 


BPS 1 




SAIS1E PROLOGUES 


PTS EPl SB 


PQimSUAS POUR 


PS£C 


BPS I 




JSR PP1MT 




tsar 




POCT 


BPS 2 




ASC "LP PROGRAMS RECONNAIT LES DISQ 


PIR2 SP1 si 


SET CQHPARATSOti 


FBDF 


DFS 2 




VES AVEC- 




track em si 




P3ID 


DPS 2 




HEX SD6B 




drive ep£ $s 




PtlHJ 


BPS I 




. " LE 


PPOLOCUE D 'AEASSEE • » 


SCT EPZ i*. 




PERU 


BPS 1 




INV 'DiAAff 




fiW ;FENETR£S 






DPS I 




sex SOBO 




MNBB EPZ S2 




PSW 


DPS 1 




ASC ' IS 


PROLOSUS OS DATA " 


HPQS EPZ 52 1 


/CURSEUR 


PDRF 


DPS 1 




INV -D3AA--- 




VPOS EPZ f2S 










HEX 93 SB 




CRT EPZ 180 




1 ** 


DEBUT DU PROGRAMS *» 




ASC •- S'JL » 


EST AIHSI. PAAPYHH <» 


CPTB EPS 182 










ETtHSJ - 




SVKD SPZ 184 


;SAUV, NO SECT 


OESUT 


JSP HOME 




HEX BDBE 




fire EPZ $8$ 


;ADS SETOUR POUS 




JSP PRINT 




ASC "- JJtfOW ENTRER LES PROLOGUES" 


PRINT 






IHV • ' 




HEX SB SB 




SLOT EPZ 188 






REX 10 




ASC " 


B 1 ADRESSEi " 


FLG EPZ 589 






INV ' COHPflRATEUR DE ' 




INV " ■ 




SVPTR EPZ ISA 


;SAUV. POINTEURS 




SEX 80 




HEX SDSD 




SVST EPS S8E 


;IND, SYSTEMS 




nw • BISQUES if -set 1 




ASC " 


BE OATA : " 


PROLOG EPZ ISO 


.■PROLOG. A PATCH 




HEX iD 




INV * — -« 




tit 






mu • < 




HEX MJiDDO 




bet epz sun 


;tSCTf tRPTBSN} 




HEX 00 




LDA n» 










JSP DtPAtCB .•KKSPT IPS MX)!.. 
JTJIA1DJUID 




JSR TRAIT 
bit ifsniTRn 




** VECTEURS DU DOS ** 








'1 


LDA KBD 


jcsorx 2 


I 






STA WBT rPENETRE 




BPL <1 




VECPX. EQU C3EJ 






jsp nox lAiriaaa lsnts 




CMP IRC7 




MS EQU 53B9 






OPTIONS 








DOS tell S3BB 






JSR PR TNT 

ASC -- mSTMiLER LES DISVUES * COUP A 




Jin SAirito 

LOA 111 


iSAlil PROLOGUES 


* ' KE193IRE.5- TAMPONS ' * 






REK " 

HEX Mil 




STA VPOS 
LDA 10 




INPUT EQO S200 






ASC" "- PRECISES LE SlTirEPE D EXFLOIT 




STA APOS 




BUt'i 1VU S20CIQ 


;POUR DRIVE J 




AT 




JSR VTAB 




LBUP1 eqv :ww 






HEX SDSD 




JSR PRINT 




BUT2 EQU StUOB 






ASC - 




asc -conrnata 


-VWS 7 OBI -> <RETUR 


LBUFZ EQU SSOOa 






IHV "I" 




K>" 




BF1S EQU S7C0O 


; BUFFERS BE 




ASC " -> DOS" 




MUX SDSD 




BPtP EQU 17100 


.DEMBBILISATIQfl 




HEX 8D8D 




ASC - 


NOT -> <ESC>" 


BF2S EQO 1BO0S 






ASC * 




USX 00 




BF2P EQO SSI 00 






mv "2." 


-2 


BIT XBOSTSB 




TRANSL EQU SBAOO 


JTABL.CONVERSWS 




ASC - -> PASCAL ET PROBQS" 


*J 


IDA KBD 




DOS 






REX 8080 
ASC " " 




BPL <r3 
CMP IRST 




if HBH0IPS-RAPJ1WARF *• 






JNV "J" 

ASC » -J CP/H' 




BEQ >4 
CMP IESC 




xsa eou scooo 






SEX 8080 




BNE <Z 




KWSTRB SOU SCS10 






ASC " " 




JHP PROL 




DRVOEN EOU SCOSA 


.■SELECT OH 2 




mv "f 


-4 


JSR NOM-RO 


.•CONVERSION HEX A 


DRVlFf pofj jrflflfr 


BR 2 




asc • -> iNcomm (secteur physiouei 








PkASEOFF EQU SCOW 






<* 




JSR PATCH 


i pAtchf.s POUR PR 


PHASEON SCO SCOBI 


,-beas or ltctWS 




HEX WWO 




OLOGUES 




MOTORON BOM SCOB? 




"J 


BIT KBDSTRB 


START 


BIT KBDETPB 




MBTOROFP EQU ICQ8S 




'2 


LDA KBQ /PREMIER CHQIX 




JSR PATSYS 


1 PATCHES POUR sy 


QCL EQU SC08C 


iLECT BE NIBBLE 




UPL *2 




STEME 




Q7L EQU 3COBE 


j PREP .LECTURE 




CHP I SBC 

BCC <J 




JSR ROME 
LDA lit 




^ ** ROUTINES MONJTEUR ET APPLESOFT * * 




CMP l$B5 




JSS TRAIT 










DCS Si 




JSR PRINT 




LINPHT £VU SSWf 


1DECIHALISATICS 




EQR IS as 




ASC *c ESP ACE* 


POOH SUSPENSION ET RMP 


PRBL7 EQU SFP4A 






STA SYS1 ;SAUV, SYSTEMS 




RISE' 





/ 
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so 
iii 

VPOS 

vtam 
m 
msh 
to 

TRACK 

flg 

PTR 

BTR*t 
IPSIOT 
tPTB) , Y 

SLOT 



HOTOHCW, X 

prtAssorr, x 
tsot 

SLOT 

phaseoh, x 
tsse 

UAIT 

TBACKO 
SLOT 



SEX 
IMA 
STA 
JSM 
LDA 
STA 
IDA 
STA 
STA 
Jsp 

STY 

sn 

LDY 
LDA 
STA 
TAX 
ISA 
BE Bit 
LDA 

xoy 

7MCK0 IDA 

ra 
AMD 

ail 

OKA 
IAX 
Ut» 
LDA 
JSM 
DEY 
BPL 
LDA 
TAX 
LDA 



EXPLORATION OSS 35 PISTES 

'JCLE LDA II 

STA DRIVE 
SUA HPOS 
LDA VIE 

cmp I? 

BEQ >J 
IMA tlO 

STA HPOS 
StA VP6S 
JSP 

JSP FAINT 

ASC -PISTES i * 

HEX OO 

LDA "i 

Jiff UUUT 



. CJ'EPCH PORT DSO 



,-CAmC£ DV DBAS 
.SDR LA PISTE S 



•1 



-LDA 
JSK 
JSP 

ISTE 
LDA 
STA 
JSS 

C IT 
JSS 

rue 

LDA 
CHP 
BCC 
JSS 
LDA 
BUS 
JSP 
LDA 
STA 
LISA 
STA 
JSK 
JSP 
BLK 
HEX 
BIT 
JSK 
LDA 
STA 
LDA 
STA 
JSP, 
JSR 
ASC 

HEX 
LDA 
ML 
CMP 
M 
JOT 
JSS 



TRACK 
PRBTTE 
PVW> 
I 

12 

DRIVE 
DVMP 

TRACK 
TRACK 
»»J 

aoucLE 

E£LL 
PUB 



/LECTURE P'WE f 



,LECT. HEKE PIST 



f — i comma 

.'PISTE SUTVANTE 



/JVCaO 'A 35BB 



HOKE 

lie 

vpqs 

rs 

EPOS 

VIAE 
PRINT 

'WS OISOOCTTES SOtiT IDENTIQUIS ' 

co 

KRDSTPB 
TEXT 

to 

HPOS 

123 

was 

VtAB. 

PRINT 

"D 'ADTRES DI5QUETTES ? — > <RET 

CO 
KBD 
<2 
IHET 

31 

DEBUT 
HOME 
DOS 



.'PiN imcmuttt 

.■RETOUP. AD BOS 



TFAFSFEFT EH KFHOTX!; pjjs i PISTES '• 



JSP YECFML 
STY FTP. 
PWfr BI75 
STA *TH+J 
LUI IPIHK 
IDA TKAC.K 



; INSTALLATltXi 
I PARAMETER LIST 



STA IPTW.Y 

LEY iPCfd 
ISA iO 
STA (PTR},t 
LDY IPDPV 
LDA DRIVE 
STA (PTS).t 
LDY tPVOL 

sua *o 

XTl Iptrs . r 
LDY IPVNT 
STA fPTR} . T 
JSP VECPML 
JSP RUTS 
LDA fC 
STA (43 
LDY tPSLOT 
LEA fPTHJ , Y 
TAX 

LDA HOTORtX/.X 
OOP LBJI 
LDA QTL, X 
LCA tO 
STA PIR 
LDA DRIVE 
ASL 
ASL 
ASL 
ASL 
ASL 

STA PTR*l 
LDA tSEO 
RCHT 
STA CP? 
LDY tO 
LDA atu.X 
BPL RD 

c«p tsrr 

BHE RD 
LDA OtL.X 
BPL RD1 
CHP tSPP 
SUE SD 
LDA QSL.X 
BPL RDS 

cup tsrr 

BEO RU1 
SHE RDi 
LDA QSL.X 
UfL HLti 
STA fPTRl , T 
1HC PTH 



;CBE "SEARCH " 



.-CALL DP -AVTS- 



iUlf CALL DE SWTS 



. TCJORKE EtKORE P 



.-PREP, LECTURE 



i SET EUFfEB EN 
,-FfW B[T BSIVE 



;S20 INCH. AtSKt 

iCPT A SSRO 

; LECTURE NIBBLE 

IJVSWA TPOUVER 
ll FF AUTO-SYNC 



.•LECT. JUSQO'A 
,™ BES TP" 



/DEBUT BE 
/DATA OU ADRESS 



/ TRANSFER I 
.'TIMING CR.TfiJUE 









III 


J ft 


Hi 


fU 


U 




0898- 


C5 


C3 


C9 


D3 


C5 


D2 


AO 


CC 


0970- 


C5 


D2 


AO 


BC 


D2 


C5 


D4 


D5 






'COMPDISK' 


08A0- 


C5 


AO 


D3 


D9 


D3 


D4 


C5 


CD 


0978- 


D2 


CE 


BE 


8D 


8D 


AO 


AO 


AO 




















0SA3- 


C5 


AO 


C4 


A 7 


C5 


D8 


DO 


CC 


0980- 


AO 


AO 


AO 


AO 


AO 


AO 


AO 


D3 


Apres avoir saisi cs code sous 




C8B0- 


CF 


C9 


D4 


CI 


D4 


CS 


CF 


CE 


0988- 


CS 


CE 


CF 


CE 


AO 


C6 


D2 


CI 


moniteur, vous te sauvegarder&2 par 


08B8- 


8D 


8D 


AO 


AO 


AO 


AO 


AO 


31 


0990- 


DO 


DO 


C5 


D2 


AO 


BC 


r.s 


D3 


BSAVE COMPDfSK,A$7FD,L$9BA 


08C0- 


AO 


AD 


BE 


AO 


C4 


CF 


D3 


8D 


0998- 


C3 


BE 


00 


2C 


10 


CO 


AD 


00 




















0RC8- 


8D 


AO 


AO 


AO 


AO 


AO 


12 


AO 


09A0- 


CO 


20 


FB 


C9 


3D 


DO 


03 


4C 


07FD- 


4C 




98 












08DO- 


AD 


BE 


AO 


DO 


CI 


D3 


C3 


CI 


09A8- 


2b 


OS 


C9 


9B 


DO 


ED 


20 


58 


0800- 


A9 


4C 


3D 


7A 


AS 


SD 


9E 


AS 


oana- 


CC 


AO 




134 


AO 


DO 


02 


CF 


09B0- 


FC 


20 


01 


10 


CC 


C5 


AO 


DO 


0808- 


A9 


34 


3D 


7B 


A5 


3D 


9F 


A5 


08E0- 


C4 


CF 


D3 


8D 


3D 


AO 


AO 


AO 


09B8- 


D2 


CF 


ct 


D2 


CI 


CD 


CD 


Ci> 


nai n- 


AQ 


20 


50 


PC 


20 


01 


10 


2D 


03E8- 


AO 


AO 


33 


AO 


AD 


BE 


AO 


C3 


09C0- 


AO 


D2 


C5 


C3 


CF 


CE 


CE 


Cl 


0818- 


ZD 


2D 


2D 


2D 


2D 


2D 


2D 


20 


08F0- 


DO 


AF 


CD 


SD 


8D 


AO 


AO 


AO 


U9C8- 


C9 


D4 


AO 


CC 


C5 


03 


AO 


L4 


0S20- 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


08F8- 


AO 


AO 


34 


AO 


AD 


BE 


AO 


C9 


O9D0- 


C9 


D3 


Dl 


D5 


C5 


D3 


AO 


Cl 


0828- 


2D 


SD 


20 


20 


03 


OF 


OD 


10 


0900- 


CE 


C3 


CF 


CE 


CE 


D5 


AO 


AO 


09D8- 


D6 


CS 


C3 


8D 


3D 


AO 


AO 


AO 


0830- 


01 


13 


01 


14 


05 


15 


12 


20 


Q908- 


A3 


D3 


C5 


C3 


D4 


CS 


D5 


D2 


09E0- 


AO 


AC 


AO 


CC 


C5 


AO 


DO 


D2 


0838- 


04 


05 


20 


20 


8D 


20 


20 


04 


0910- 


AO 


DO 


C8 


D9 


D3 


C9 


Dl 


D5 


09E8- 


CF 


CC 


CF 


C7 


D5 


C5 


AO 


C4 


0840- 


09 


13 


11 


15 


05 


13 


20 


31 


0315- 


C5 


AO 


3D 


9D 


00 


2C 


10 


CO 


09F0- 


A7 


CI 


C4 


D2 


C5 


03 


D3 


C5 


0848- 


36 


2D 


13 


03 


14 


20 


20 


8D 




AD 


00 


CO 


10 


FB 


C9 


B6 


90 


09F8- 


AO 


BA 


AO 


04 


35 


01 


01 


39 


0850- 


SD 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


0928- 


F4 


C9 


B5 


BO 


FO 


49 


BO 


35 


0A00- 


36 


OD 


OD 


AO 


AO 


AO 


AO 


AO 


0858- 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


2D 


0930- 


8E 


20 


01 


10 


AD 


AO 


DO 


D5 


0A08- 


AO 


CC 


C5 


AO 


DO 


D2 


CF 


CC 
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13 


14 


05 


20 


OE90- 


20 


13 


05 


03 


14 


05 


15 


12 


0E93- 


20 


20 


10 


OF 


13 


09 


14 


09 


OEAO- 


OF 


OE 


00 


A5 


8E 


29 


02 


FO 


0EA8- 


OB 


20 


01 


10 


AO 


AO 


AO 


C2 


OEDO- 


cc 


CF 


C3 


00 


AS 


09 


85 


22 


0EB8- 


20 


58 


FC 


A2 


01 


86 


24 


20 


OECO- 


24 


10 


A5 


04 


20 


DA 


FD 


A2 


0EC8- 


05 


20 


4A 


F9 


20 


24 


10 


38 


OEDO- 


A5 


84 


2A 


25 


85 


AA 


BD 


00 


0ED8- 


10 


85 


06 


20 


DA 


FD 


A2 


06 


OEEO- 


20 


4A 


F3 


20 


24 


10 


68 


20 


0F.F.8- 


DA 


FD 


A2 


06 


20 


4A 


F9 


AS 


OEFO- 


8E 


CS 


02 


FQ 


15 


C9 


03 


FQ 


0EF8- 


3B 


20 


3E 


FD 


18 


A5 


8A 


69 


OFOO- 


56 


35 


00 


A5 


SB 


69 


00 


85 


OFOR- 


0] 


60 


46 


06 


08 


AS 


OS 


OA 


QF10- 


OA 


OA 


AA 


A9 


00 


69 


00 


48 


0F18- 


18 


3A 


65 


06 


AA 


68 


20 


24 


OF20- 


ED 


A9 


AC 


20 


ED 


FD 


28 


A9 


0F28- 


00 


69 


Bl 


20 


ED 


FD 


20 


82 


0F30- 


FD 


4C 


FC 


OE 


06 


04 


06 


04 


0F38- 


A5 


06 


4A 


4A 


IS 


65 


04 


AA 


OF40- 


46 


04 


46 


04 


A9 


00 


20 


24 



30 



Pom's n° 25 



.* »• bqcttwm orvaass »» 

RSJL7.S. 
PTE ift* too 



m 

IT 

ADC 

n 

sta 

LEA 
STA 
ADC 
£TA 
.lit. 
IDA 

mi 

SLOP. 
JM 
INX 
CPX 
BUS 
LDX 
in? 
EOS 
STA 
JKt 
BNE 
SIS 
IDA 
PMA 
ISA 
PSA 
IDA 
STA 
LDA 
STA 
ISA 
SIA 
JSR 
JSR 
ASC 
HEX 
IDA 
JSR 
JSR 
ASC 
SEX 
IDA 
OV 

ace 

LDA 



use 

too 
to 

loih 
to 

Hi 

si ooo, x 

TRANSL, T 
flOB0,X 

1*56 

LSI 

10 

tlOOO. X 
TRRNSL. r 
11000, X 



ID 

tmoT 
ti 

VFOS 

no 

MPGS 
VTAB 
PRINT 
'FISTS f" 
SO 

TRACK 

prbyte 

P8IXT 

• DRIVE - 

00 

PTR+1 

/aw; 

>i 

"i 



.PRTP Of LA DCNI 
.■PATCH DJC LA SOU 
.-POOP SWELLS SO 
. eUWCNE AUJf 1 B 



CONVERSION 
,-EOH 0£S NIBBLES 



.SORTIE MESSAGE 
f PISTE JU.ISJBLE 



REXA 
TRAIT 



LDA 

JSS 
JSS 
IMA 
STA 

JSR 

ASC 
SSX 
JSR 
JSR 
LUA 
STA 
?LA 
STA 
WA 
STA 
JSS 
PLA 
STA 

wr 

RTS 

eiA 

STA 
FLA 
STA 
LD1 
LDA 
flJTO 

smt 
t«E 

CLC 
TYA 
MX 
STA 
ISA 
ADC 
PEA 
IDA 
PEA 
LOt 
STS 
IDA 
JMP 
STA 
LDA 
STA 
JSR 
LDA 
LDX 
JSR 
D£X 



•i 

COOT 

CSCtST 

§1* 

HPOS 

PRINT 

"ILLISISLE- 
00 

BELL 
BELL 

u 

FLU 

VPOS 
10 

rpos 

VTAB 
KNOT 



RTN 

SJW+1 
ti 

mint . y 

>2 

mn 



kth 

jRTTf 

BTtt'l 

10 



40 

s 

COOT 
VPOS 
10 

HPOS 
VTAB 

*39 

SFDED 



BPL 

STS 

SAIPSO PRA 

S 

LDA 
S7A 
Li) A 
£7A 
JSS 
PLA 
STA 
AND 

jsr 

BIT 
LUX 

-* JSR 
STA 

KID 
JSR 
INX 
CPX 

ace 

LDA 
STA 
LDA 
STA 

JSR 

'5 JSS 
STA 
AND 

jsm 
mx 

CPX 
BCC 
STS 

NVMPRO ior 
LDX 

-1 JSR 
STA 
BEX 
JStt 
ASL 
ASL 



jTIRER UN TRAIT 



til 

HPOS 
IIS 
VPOS 
VTAB 

ISPDT 

tt*r 

cwr 

KBDSTRB 
ti 

RDCHAR 
INPUT, X 
IS3F 
CCVT 

If 

rt 
«» 

VPOS 

m 
arc* 

VTAB 
RDCHAB 
INPUT. X 
IS1F 

rixtr 

«3 
■eS 

IS 

til 



ASL 

CLC 

ADC PROLOG, r 
STA PROUK, T 
ICG 
DEX 
BEY 
BPL < I 

m 



iSAisie psnivinnE 



jTSAITT DO 

: SEP CKRAC SAISI 



.-EI cHETCK» 



,-afich en raasj 



tSAlSili 5 AUTHtS 
."DIGITS FRVL ADK 



;P0IS PROL DATA 



rCOHPEOrtCH sexa 



;ET SAW. EN PSD 



0F48- 


ED 


A9 


AC 


20 


ED 


FD 


18 


A5 


0F50- 


06 


m 


03 


69 


SI 


20 


ED 


FD 


QF58- 


20 


8E 


FD 


4C 


FC 


OE 


18 


A3 


0F6Q- 


00 


8D 


78 


OF 


69 


56 


ED 


83 


0F68- 


OF 


A3 


00 


3D 


73 


OF 


63 


00 


QF70- 


3D 


89 


OF 


Ai 


00 


A9 


00 


BC 


0F18- 


00 


10 


53 


00 


BA 


3D 


00 


10 


0F30- 


E3 


EO 


56 


DO 


F2 


A2 


00 


BC 


0F88- 


00 


10 


53 


00 


BA 


3D 


00 


10 


QF90- 


ES 


DO 


F4 


so 


A5 


22 


48 


A5 


0F98- 


25 


48 


A3 


00 


85 


22 


A9 


01 


OFAO- 


B5 


25 


A3 


14 


85 


24 


20 


22 


0FA8- 


FC 


20 


01 


10 


DO 


C9 


03 


D4 


0FB0- 


C5 


AO 


A4 


00 


A5 


04 


20 


DA 


0FR8- 


FD 


?Q 


01 


10 


AO 


ti 


DP 


C9 


QFCO- 


D€ 


C5 


AO 


00 


A5 


01 


CS 


40 


0FC8- 


90 


04 


A 9 


ai 


DO 


02 


A 9 


B2 


OFDQ- 


20 


ED 


FD 


zo 


8E 


FD 


A3 


18 


0FD8- 


85 


24 


20 


01 


10 


C9 


CC 


CC 


0FEO- 


C9 


D3 


C3 


C2 


cc 


C5 


00 


20 


0FE8- 


3A 


FF 


20 


3A 


FF 


A9 


01 


35 


OFFO- 


83 


68 


85 


25 


A3 


00 


85 


24 


0FF8- 


?0 


73 


FC 


68 


35 


22 


AO 


00 


1000- 


60 


68 


85 


86 


68 


85 


81 


AO 


1008- 


01 


Bl 


86 


FO 


06 


70 


ED 


FD 


1010- 


C8 


DO 


F6 


18 


38 


65 


86 


85 



1018- 


3 6 


A5 


87 


69 


00 


48 


A5 


86 


1020- 


43 


AO 


00 


60 


A9 


A4 


4C 


ED 


1028- 


FD 


85 


25 


A3 


00 


85 


24 


20 


T 030- 


P2 


FC 


A9 


AD 


A2 


27 


20 


ED 


1038- 


FD 


CA 


10 


FA 


60 


48 


AS 


15 


1040- 


85 


24 


A9 


OF 


85 


25 


20 


22 


1048- 


FC 


68 


BD 


00 


02 


29 


3F 


20 


1050- 


ED 


FD 


2C 


10 


CO 


A2 


01 


20 


1058- 


35 


FD 


3D 


00 


02 


23 


SF 


20 


1060- 


ED 


FD 


E8 


EO 


06 


90 


FO 


A3 


1068- 


11 


85 


25 


A9 


15 


85 


24 


20 


1070- 


22 


FC 


20 


35 


FD 


9D 


00 


02 


1078- 


29 


3F 


20 


ED 


FD 


E8 


EO 


OC 


1080- 


90 


FO 


SO 


AO 


05 


A2 


OB 


20 


1088- 


Al 


10 


99 


90 


00 


CA 


20 


hi 


1090- 


10 


OA 


OA 


OA 


OA 


18 


75 


90 


1093- 


00 


99 


90 


00 


CA 


88 


to 


E7 


10A0- 


60 


BD 


00 


02 


49 


BO 


c$ 


OA 


10A3- 


90 


02 


E9 


67 


60 


A5 


90 


8D 


10BO- 


FC 


oc 


80 


68 


OD 


A5 


91 


80 


1 0R8- 


03 


OD 


8D 


6F 


OD 


AS 


92 


8D 


10C0- 


OA 


OD 


8D 


76 


OD 


AS 


33 


8D 


10C8- 


25 


OD 


8D 


9D 


OD 


A5 


94 


3D 


10DO- 


2C 


OD 


8D 


A4 


OD 


60 


A2 


00 


10D8- 


BD 


A3 


11 


C5 


SE 


FO 


07 


ES 


10EO- 


E8 


E8 


E3 


E8 


DO 


F2 


3D 


A4 



10E8- 


11 


3D 


D7 


OE 


BD 


A5 


11 


EO 


10FQ- 


D8 


OE 


BD 


A6 


11 


3D 


05 


11 


10F8- 


8D 


09 


11 


BD 


A? 


11 


8D 


06 


1100- 


11 


8D 


OA 


11 


AD 


00 


10 


AA 


1108- 


BD 


00 


10 


3D 


7F 


OE 


CA 


DO 


1110- 


F7 


60 


A9 


D5 


8D 


FC 


OC 


8D 


1113- 


25 


OD 


8D 


68 


OD 


3D 


3D 


OD 


1120- 


A3 


AA 


3D 


03 


OD 


3D 


2C 


OD 


1128- 


8D 


6F 


OD 


8D 


A4 


OD 


A3 


96 


1130- 


3D 


OA 


OD 


3D 


76 


OD 


A2 


07 


1138- 


A3 


AO 


3D 


80 


OE 


CA 


10 


FA 


1140- 


60 


00 


07 


OE 


06 


OD 


OS 


OC 


1148- 


04 


OB 


03 


OA 


02 


03 


01 


08 


1150- 


OF 


00 


OS 


01 


09 


02 


OA 


03 


1158- 


OB 


04 


OC 


05 


OD 


06 


OE 


07 


1160- 


OF 


00 


OB 


06 


01 


OC 


07 


02 


1168- 


OD 


OS 


03 


OE 


09 


04 


OF 


OA 


1170- 


05 


00 


01 


02 


03 


04 


05 


06 


1178- 


07 


08 


09 


OA 


OB 


OC 


OD 


OE 


1180- 


OF 


07 


AO 


AO 


C4 


CF 


D3 


AO 


1 188- 


A9 


OS 


no 


CI 


03 


AF 


no 


DP 


1190- 


CF 


A3 


07 


AO 


C3 


DO 


AF 


CD 


1198- 


AO 


A9 


08 


C9 


CE 


C3 


CF 


CE 


11AQ- 


CE 


05 


A9 


01 


41 


11 


81 


11 


11A8- 


02 


51 


11 


99 


11 


03 


61 


11 


11B0- 


92 


11 


04 


71 


11 


9A 


11 





Pom's n° 25 



3 



PATCH 



KM 
ECJfi 
CHP 

sec 
S3C 
RTS 
LDA 
SIA 
ST* 
LDA 
STA 
STA 
ISA 
STA 
STA 
LDA 

S7A 

STA 
rjlA 
STA 
STA 
STS 
VOX 
LDA 



CMP 

s£0 

IHX 
INX 

inx 

INK 
INX 

mH 

LDA 
STk 
LDA 
STA 
LDA 
STA 
STA 
LDA 
STA 
STA 

TRLIB LDA 
TAX 

TRLJ82 LM 
STA 
DEX 
SHE 
RTS 

DEPAJCU LDA 



PATS 



tf09 

tSOA 

#ff7 

PROLOG 
ML. 1*1 
SBC. 1*1 
PROLOGtl 
SAL. 2*1 
SBC. 2*1 
PB0L0IS+2 
BAI.J.J 
SRC. 3*1 
PROLOG*} 
SAL, 1*1 
SRC. 1*1 
PStlt/X!*4 
SAL. 5*1 
SBC . 5*1 

to 

TSYS.X 

stst 

FATS 



<1 

TSTS11.X 

ADTStS*l 

TSYS*2.X 

ADTSYS*2 

TStS*3.X 

TRLIB*1 

TRLItl*! 

TSYSU, X 

TRLIB-tl 

1RL1B1*! 

11090 



sieoc.x 

L1SYS-1. X 



THIJ13 

isas 



.■ROOTIHE PATCH 
,-POVR PROLOGUES 



: PATCH TABLE OS 
*C0RR££P.SECT.PI! 



:ST SECT.LOC-IQUE 



: TRANSFER! BP II" 
;BE SYSTEMS 



l SOUSE A VAL . S 











STA 


BAL+1+1 t 




STA 


BAL.4+1 




STA 


SRC. 1 +1 




STA 


SRC*, i *2 




IDA 


fSAA 




STA 


HAL. 2+1 




STA 


BAL. 5+1 




STA 


SRC. 2*1 




STA 


SRC. 5+1 




LDA 






STA 


HAL. 3+1 




STA 


SRC. 3+1 




LDX 


§? 




JOUR 






IDA 




"1 


STA 


L J SYS ^ X 




BEX 






BPL 






RTS 




TO OS 


HEX 


OOQ 7 0£ QSQBQ5QCQ4 




HEX 


QBQ3 80F 


TPAS 


SEX 


0O0S0109020A02OB 




HEX 


04 OC05 QDQ6QEQ ?0F 


TCPH 


HEX 


niton OA n r H)r(}70?osi 






090 J 0E0 S/J^flFn.flfi.'i 










HEX 


08 0&0B OCODOEOf 


i 


STU 






SIR 


m PA5/FPtQ) 


IrlBCFH 


S7F 


~ CP/ii } 9 


ifr&itic 


51ft 


**ItfC<XfNVJ " 






01 i 




UX 






ADR 


TDQS ; 




TES 






ADR 


LI BOOS I 




HEX 


02 , 




SI 






ADR 






ADR 


LI SPAS 




HEX 


m 




ADR 


tcPM 




ADR 


L.TBCPM 




REX 


Q4 




ADR 


TPHY 




ADR LIB ISC 



REMISS A SPACES 
LIBELEE SYSTEMS 



raatts rgBGB&BH 



Paddle, 
Souris. 
et Apple lie 

II est possible sur I 1 Apple //c 
d'utiliser la souris en lieu et place 
des paddles. La methode est la 
suivantc : 

» En mode direct, taper : PR£4, 
puis CTRL-A, puis PRJCO. 

■ En mode programme : PRINT 
CHR$(4) "PR£4" : PRINT 
CHR$(1) : PRINT CHR$(4) 
"PRfO" 

A titrc d'essai, votis pouvcz utiliser 
le programme snivant : 

10 PRINT CHR$(4) "PR£4 51 : 

PRINT CHR$(l) : PR TNT 
CHR${4)"PR£0" 

20 PRINT PDL(O), PDL(l) : 
GOTO 20 

La souris s' utilise alors comme un 
joystick. Ceci fonctionne avec fes 
programmes Basic ; en revanche, la 
plupart des programmes commer- 
ciaux utilLsanl directement les a- 
dresses des paddles, ne sauront pas 
se servir de la souris . . . 



Vous nvp?. un Apple tie avec Chat Mauve ou un He ? 

' : ¥ous dispose! de Pascal 12 ? 

Profitez de Tinterpreteur 




n s'agit d'uti syst&riie graphiqiie double-haute 
- resolution ecriteij Pascal. 
COGO vous perm€t.de rhanipltileT des grsphiques 
grace a urt langage de description des objets 
- points, angles- et h Temploi de fonctions primitives 
dc manipulation rres puissantes ; cercle, tangente, 
intersections, paralletes, etc. II est ainsi possible 
de tracer des grilles, des ceicles, des segments de 
droite, des tangentes communes a deux cercles, de 
calculer d£s distances, des angles . . . 



L'editfiur permet une saiste rapide du langage. 
Une instruction COGO peut-etre executee des 
la saisie pour faciliter la mise an point, ou 
au sein d'un programme, 



Par Nicolas Mnntiarrst 



IAINTENANT EH DOUBLE HAUTE 
RESOLUTION SUR APPLE //C 



Cc programme,: destine a resoudre des problemes de 
g^om^trie plane, comporte des instructions de 
stockage sur fichier afm de permetlre la reprise 
d'un calcul. 



150,00 F TTC, franco 
Bon de commande page 74 



32 



Pom's ti 25 



Le format eur de ProDOS disassemble 

Bruno F enart 



Par manque de place, le "kernel" (noyau) 
de ProDOS ne comporte pas de 
formateur. Contrairement au DOS 3.3, 
pour formater une disquette en ProDOS. il 
faut utiliser un programme spe'cifique. II existe deux 
versions des utilitaires 'systemc' dc ProDOS 
(FILER), plus un utilitaire special pour 1'Apple lie. 

La partie desassemblee ici concerne le formateur 
physique de la version la plus re"cente. Les deux 
versions de FILER different peu ; toutefois, 
l'emplacement du formateur a e'te deplace de $7CO0 
a S7E00. De plus, un bug qui l'cmpcchait dc 
fonctionner sur des lecteurs de disquettes trop lents 
ou trap rapides ("DISK II TOO FAST" ou "DISK II 
TOO SLOW") a ete corrige. 

Les lecteurs pourront comparer ce formateur avec 
celui du DOS 3.3 (voir RWTS desassemblee Pom's 
n' 21). lis pourront s'apercevoir que la principals 
difference entre les deux est que ProDOS detects 
quand I'erreur provient de la vitesse de rotation du 
lecteur. lis pourront egalcmcnt voir comment 
modifier les valeurs de GAPMIN et GAPMAX si 
leur lecteur de disquettes est trop lent ou trop rapide 
pour le formatage ProDOS. 

a 



Source 'FORMAT.SCEO' 

Assembleur ProCode 





1 
2 
3 
A 
•i 
6 
7 
t 

9 

10 
11 
12 
13 
11 
IS 
It 
27 
18 
11 
20 
21 
22 
2J 

24 

25 
2£ 
27 
23 
29 
30 
31 
32 



* FORMATEOR du FILES de ProDOS ' 

* r^pyriqht- Apple Pnmputer .Jim/DFC 84 * 

- :■■</.:,:■:,:,<-:..:.■: !i>,<- Bruno Fenort 1 0/SEP/$5 * 



* Fhrjnataffs physlrpie 16 3«i?E*U-i'S DISK II 

* Peur le FtLtt* <*« 83 J« dibuc ut un $7800 

* La copie du boot (blocs «t 1/ jc trouvtr cn $C5D3,5C2D2 

* en $6125, $6824 pour l'ae\clet\ne version 

* Entree: A = n" lecteur ■ it-' slot x $10 + $80 si drive 2 
' VOLUME f$DBt * i* du volume lornati 

* .'?<lr^^^?-' £rr?»r — > narry *&t et A = n" prrflrjr 

* Pas d'arceuc — > cjfiy cl&sr 9t A M 

ORG $7A00 /ORG $7500 puuz 1 'anulanne verslvii 

* Variables en page zero 



CST.AA 


EOf 


$D0 


/ Cons tafi t e £ AA . Temporisa 1 cycle 


nsT.im 


EQU 


$D1 


/n * piste a forjnatGr finit.- Q) 


SECT. S3 


EQO 


$D2 


/n" seuLttur A luzmaLeL {ZnIL.= 0} 


VOL.HB 


sou 


fD'J 


,n- du vol une (InLt,= VQLUHtit 


GAP 3 


BOB 


SO* 


/fibre sync, bytes (lntt.-CAPNA.X-t2) 


COMPTDAT EQU 


$D5 


/Compteur des donnees lues 



33 


£SSA i HB 


EQO 


$oe 


rNuenL*£t; d'vssal pal ■■■ - {Max— 3} 


31 


TABLAOK 


EQU 


$n/ 


,-Taole ae CHCKBH / SH.~r r i'lSt,Vai 


35 


SECIEUR 


EOT 


TABLAOF*! 


in ' du secteur Ju 


36 


COHPTB 


EQO 


$D9 


.Cettpte 25S DELAY. Hon initialise 


37 


CQHfn 


tea 




.;;■'.■.■!;,- 1 s. Initialise A $D7 


38 


TAMPOWJ 


Eon 


$DB 


I Tmii*peu\ prt-Nr Jfl ^hpf7lr.*i]« fir\1r. = fi} 


39 


COHPTSOlt 


EDO 




iEnaaia de leotuee Unit.- SFC1 


49 


TAHf-Ottl 


EffU 


tpb 


r TAmpan :i'Jjyi 4 et 4 


11 


VOLUME 


Uiu 


$Utl 


S Entree: n' dv volume 


42 










43 


* Commutateurs du lecteur de disquettes 


44 

ts 


• 

















4 £ 


DSVSO 


8QV 


fCOBO 


jphaf*& o 


it 


QRVOFi' 


BQO 


SCOBB 


; Anit 


te 


DRVQH 


EQU 


$C0B9 


sfiarche 


49 


DRVSL1 


EQU 


SCOSA 


; Drl ve 1 


50 


DKVSL2 


EQU 


SCOBB 


t Drive 2 


51 


CflVRD 


EQU 


$coec 


/lecture 




riRVWR 


F.Q13 


Scosn 


/Ecrlture 


S3 


ERVXDX 


EQU 


$C08B 


.-Morf* IfrCtUJtfl 


54 


i«WJw 


ECU 


$C06F 


.W?de ©cf 1 tyre 


S5 










5( 










57 


■ MACROS 


de lecture et d 


ecriture 


SS 
59 

to 




IB 







Cl 


HEAP 


mc 






62 




MM 


DUVRO, X 


/Lecture d'un octet 


S3 




BPL 


"-3 


l Lit tent ov& pasitlt 


4% 




SOU 






65 


KEITE 


KAC 




fEcrlt-VTC sue 3 cycles 


et 








»■ \A iftfcfiafuje,. Larry EtOQl F-lej j 


f7 




STli 


DSVWfl, ,V 


/ Ch i9 I'cj<3 1 r Oct &t 3 GCCJirB 1 3 j 


66 




£M? 


SRVRD r X 


, It * t SUC 1,B ~ \ JtJUG { 


61 




EOM 






70 


tmiTEBIS 


HAC 






71 










72 




STA 


DRVHR r X 




73 




LDA 


DRVRD.X 


;L F ^cJ"i.t SUf disQ'Ufi (9} 


74 




BOM 






75 


HR3TATV3 MAC 




• re J ' ~ i tJ X fen Curu 


16 










77 




LDA 


DRVWR,X 


■ rr n 4 I a m i ^ i & ji p r P , ^ r j- ( 

, aPjv. .ii J k □J^rjire e? s l iJiziJi.tstjws 


78 




LDA 


EKVNOM,X 




79 




E014 






flO 




HAH 






82 










OS 




STA 


OBVWRM, H 




S3 




CMP 


ORVRD,X 


p-Ecrit Je J ■ ocCet f5J 


84 




EOM 






as 


mEND 


iae 




;Fin mode d' e(7iri tUJ** 


si 




LOA 


[>RVRDM,X 




67 




LDA 


DRVSO.X 




SB 




EOK 






39 


DELAY6 


mc 




;D£Jai de * cycJos 


90 




NOP 






91 


DELAY4 


MAC 




iDkl&i de 4 cycles 


92 




Nnp 






53 


DELAY2 


MAC 




da 2 oyoJoa 


91 




HOP 






Si 




HVH 






96 


DELAY3 


MAC 




tD&l&i de 3 cycles 


97 




BIT 


$00 




98 




ECU 






99 


OEU 17 


Mia 




; DoIbI de 7 cycJ*i 


100 




PHA 






101 




PLA 






1 IS2 




HUM 






103 


DELAY12A 


MAC 




;D*hlai de 12 cycles 


104 




JSS 


RTS1 


;Saut vers an PTS 


105 




EON 






lOf 


DELAY 12 B 


MAC 






107 






RTS2 


/Jout lifer* rrj 


103 




EOM 






109 




FIN 






110 




PUT 


FORMAT. SCSI 




111 




PUT 


FORMAT. SCE2 





Pom's n° 25 





Source 'FORMA T. SCE 1 ' 


Si 


* Sortie; Carry indiffemnt (prtK-tr tsinnt par le prog prlric) 








84 


* rp^firre ^ - n" do 1 


'srrsur •"■ n I fd&oodtS par EFflEUR) 




Asscmblcur ProCode 


85 
















3$ 


DEBUT 


TAX 






I 


it 




a? 




ADD 


t$70 


; isois ie n" du slot 




* 




as 




STA 


SLOT 










Bi 




TXA 




r 'R§cup&re n* du slat &e dtJ drive 






* 


90 




LDX 


SLOT 


in ' du slot x $1C en X 




* Debut: du 


code * 


91 




ROL 






£ 


* 




t? 




LDA 


f$co 




7 


* l£re partle: Pmejrnminp Principal * 


S3 




ROL 






R 


* 




94 




BHE 








it 




« 




LDA 




; SfiSJ ec ti onn e J§ dzl ve 1 


1 










JHP 


Sdri vel 




11 






97 


Sdrl ve2 


LDA 


DRVSL2.X 


r ~S&lectlonne driv*= 2 


12 


PHP 


.■Preserve le context* 


98 




LDA 


DRVOH.X 


fM£jm en fsarche du lecteur 1 nu ? 


13 


SEI 


; et interdlt les interruptions 


99 




r.na 


4$m 


J I Til t laliOfi J 'at twite totald — J. a 


14 


JSR DEBUT 




j oo 




STA 


COMPT1 




ts 


PtP 


/J*«jtitu& i* contexts 


i Oi 




LDA 


t$50 


iFvslLlun du bra? Inltllisd A $5Q 


1 £ 


CMP f$0O 




102 




STA 


PlSIACTa 


: pour recaJi&rer celui-cl 




SHE EHHEOn 




1 03 




LDA 


tstw 


; Rec-al ibr&Qe sut Jj piste 


iff 


etc 


:Pas d'erreur; fietour a 1 'enveyeur 


104 




JSR 


POSTRACK 




IS 


Hrs 


j avee A = et Carry clear 


J 05 


Sat ten tt 


LDA 


COMPT1 


i T&mpQrlse 1 s depuis le ot&irarrfltfe 


20 






106 




BEQ 


Sfinatc 


1 41 x 25& tfou cl es 


21 


* Cestlon des erreurs; 


Conversion en trreiirs PrrtFJO?: 


1 Q7 




.7RR 


DELAY 


x 9€ *i 1 c jro-ff ecori de s = J eotzoiieliz 


22 


• s 




joe 




J«P 


Saeeenca 




23 


* £i\tz4»; Acc, - n* crrsur 1 A 4 


J 09 


ffiuatt 


LDA 


VOLUME 




24 


* Son tie i Carry SSL 




110 




STA 


VDL.HB 


; du numero de uoJttfle 




* Aac. • frreur ProDOS -> Erreur d'E/S = $27 


111 




LDA 


f$AA 








-> JJisgue proteje = J^fl 


112 




STA 


CST.AA 




21 


* 


r* Troo lent ■» $33 


113 




LDA 


CAPMAX 


; On comrn (?n r.f* *is rfuje.flij ? tie la 


2$ 


i 


-> Trap rxplrlp = $34 


1 J i 




cue 




; 2 i*i t e pour pouvoij? t ^ si 


23 






IIS 




ADC 


1102 


; 1c disqus o'4titt pw lj.vp Ivni. 


30 


ERRPTO CMP tS02 




21£ 




STA 


GAF3 


31 


BHE Sautter 




117 




IDA 


tfco 


jfreni ere piste a lormater 


32 


lbh *$2a 


,'Dtsgue protege en ecriture 


US 




STA 


PIST.fIB 


/ * pi ste~ 


33 


JHF St in 




11 9 










34 






t 9/i 
L£v 


Spis te 


LDA 


PIST.NB 


sPosi t lonneatQiit: sur la 


35 


Sautres CMP tfOl 




121 




TJ1X 


SLOT 


j pis to A forffttt&r 


36 


BSE Ss/jBsrt 




122 




JSR 


POSTRAOt 


37 


UM §$17 


/Srreur d'Ti/C 


1£3 




UfX 


SLOT 




3S 


JNF 0tUa 




124 




WRSTAIVS 


,'Test si prot&Qi& en ieriture 


3 J 






125 




TAT 




fPr&serve Je resultat du t»?^t 


40 


Sspeoa cic 




12$ 






r tionne les stiitchs off 


41 


ADC t$30 


.hvtzes erreurs (viz-esse DISK III 


127 




TTK 




i Jiecujjere J e resul Es t tin test 


42 


5 tin SEC 




128 




RPI. 


Snlrurlte 




43 


1 Rstaur a l*envoy*tjr Aver le cade 






LBA 


/f02 


.' sin on c r re u jt 2 — 02 WE PR O T£ OE 


44 


are 


: d'ozrour dans A et J* parry sat 


1$C 




J«P 


ns 


i tt fin 


J s 






131 


^tiA ¥f L L t tr 


JSR 


XT. 1 TRACK 


■■formate une piste puis la teste 








132 




BCC 


Sektorm 


' Si p&£ d ' e£r*=ur 


4 7 






133 




LDA 


t$01 


iErzeuz 1 par de^sut = ERREUR E/3 


48 




* 


134 




LOT 


GAP3 


; Teste la larveur ties gaps 


49 


* Positionneaent du bras du lscteur par aooel de Alf/fOVE * 


135 




CPY 


GAPMIN 


'Cap 3 tr&fi Murtr 7 


56 




*■ 


134 






£Jmp£ln 


r -N&ns «£-j:«ijjr n on ldaaklf£tSe; ct £in 


5; 




137 




LBA 


f?Q4 


i a-lnon CISK II TROB RAP IDE 


.5? 






139 


Sjmpflii 


JMP 


Frrr 






* entrie; A - plate ileat incLion 


133 


Soxiora 


LUI 




r ' Pas d ' ErrciiE 3 u formd tJMFC 


54 


* - nufflero cfu 


slot X $10 


1 40 




CPY 




/ jrais teste 2a Jergeur ties paps 


55 


" PXSMC11J = piste actueJle 


t4i 




BCS 


Sokspdl 


/Cap 3 trcp court ? 


5£ 


* Sous -programme appeie 




142 




LDA 


t$nt 


•nni : e-treur DISK II TROP RAPIDK 


57 


WOVARM ■ Posit ienne Je hraj tuivattt Is Wilms* d» i 








piir 


; at fin 


56 


• Variahie local; PIETDEST 


144 


$ojopdl 


CTV 


GAFMAX 










145 




BCC 


$oKsp<12 


;Gap 3 Crop l-CF.'J 2 


€0 


POSTRACX ASh 


i PijCe destination X Z 


146 




LDA 


t$Q3 


, uifj , erreur iSiUt* Li^vj 


<C1 


ASL PISTACTU 


: Piste accueije x 2 


147 




JUP 


F1S 


j jfi n 


€2 


STA VISTDEST 


; A -> Piste destination x 2 


1 43 


Sckspdl 


IDA 


TESTHAX 


f* ?J time tes t de i a pJ^ te 1 : 


63 


TXA 


;R4cvpere n ' du slot x $10 


1 49 




STA 


TESTNB 


j B if essais a u uraxinrum 


$4 


LSR 




1 50 


Stent 


mc 


TtSTim 


.■J>«cc.jnpto 1^* ^evntre d-es testt 


€5 


IBS 




2-5 J 




BHE 




En uji t fjj t 


£tf 


LSR 




151 




LDA 


ftoi 


; slnon erceur 1 = t.i*R£ii&- Ufa 


6? 


L3R 




153 




JHP 


FIN 


/ fi n 


6$ 


TAT 


vji" du slot e/f T 


1 54 


Senear e 


LDX 


SLOT 




6S 


im PISTOEST 




1 55 




JSR 




; Tento de lire J# seeteur zero 


70 


JSR ARMOVE 


;Posl tlonpemen t 


1 5$ 




BCS 






71 


LSR PISTACTO 


,'Kecucere piste actuelle 


J .T7 




LDA 


5ECTEVR 


fl " d L! see t« t j r 1 u 


72 


RTS 




15B 




BSE 






73 






159 




LDX 


SLOT 




74 






ISO 




JSR 


FEXDATA 


r ' puis 1 ses donnees 


7J 


* 




1 61 




BCS 


Stest 


r Lecture re'ussie .? 


76 


* torpiitage d'lin dlstjue * 


162 




INC 


PIST.NB 


; Test Fini on pssse i 


?7 


*■ 




1 $3 




LDA 


PIST.NE 


fla pi aft* atitvAnte 


78 


******* t t ************* t***** 


1 €4 




ou- 


f$23 


;Pistc 35 (ttcrnitrc plate} ? 


73 






1 65 




nce 




i sinoir eiJL-ujL una plsttt 


SO 


* Entree: lt\ terruptl ona 


inhlbecs 


1 ft 








91 


* reqistse A = n' lecteur = ft" slot jc $Im + $$Q si drive 2 


1(7 




LDA 




;Ecrsur = pas d'erreur 


82 


* VOLUME ($DE) 


= n ' du volume formate 


i es 


Fill 


PHA 




;Pr&serve le nunSro tie 1 'erreur 



\ 

34 Pom's n° 25 



J 69 LDX SLOT 

17(1 IDA DRVOFF.X .Arret du lecteur 

17J LDA iSGG ; Paaitianne 7f hr** A 1a piste 

1 12 JSR POSTRACK 

J Vfl Kl^j ;RGCQUr BU prvgrraatir.*! principal 



Source 'FORMA T. SCE2 ' 

Assembleur ProCode 







I 


Ik 






3 


it 




* 


3 






* 


$ 






* 


*p 


' 2&ae partis; sous -pro grammes * 


S 






* 


7 


Hi 




* 





* 














20 








j I 






12 


9 






13 


+ Test du champ des 


donn&es w 


I { 






* 


J5 












j 7 


* Tcs tc ol ch 




342 ($156) donn<kea cat /auJJ* ($9C) 


i ? 




1<jI x 16 


J £ 




DRVRD * DFtVRDM \ 


2 


* Sort lei Erreur 


~> Carry set 


21 


* Pas d 'erreur ™> Carry clear 


22 


* Reglstres: A = *AS, 


Y = $00* X = incftange 


21 


* Variable locale: COUPT&AT = Caaifiteur das dnnn&BS Umx 


24 








25 


READATA LDY 








$pos i E BEr 






2 7 


BEQ 




; 32 tentL&tlves f synchro, bytes} 


28 


HEAD 




4 °Llt tin octet 


2$ 


§r epos it £Oft 




;Z?&biJt du prologue ? 


30 


BSE 


Sposit 




gj 








32 








33 


OMP 


f^AA 


i Suite pL ul uy u e f 


34 




Sreposl c 




35 


LDY 




;Pour apres {342 octet s) 


3 $ 


READ 




/Lit wi octet 


37 


CMP 




/ I*Iti du prologue des donn^es 


3S 


mm 


£r <?p ns J £ 




35 


UM 






40 






i icctuK oT« Sif donncos 


41 


srr 


COMPTDAT 




42 


«e*u 




iLlt un octet 


43 


CMP 


i$9f 


f = donn^e nulls 


44 


BNE 


izmGoun 


iToutes les donnees nulles ? 


45 


LDY 


COMPTDAT 




if, 


niw? 






41 




COMPTDAT 


/Lecture etc 25$ donrttscs 


4S 






r LI I un eL 


43 


CMP 




; = (fenfire null* 


50 


fl«E 




; Tout le$ doniiees ntilles ? 


51 


iur 






52 


imr 








she 






54 


READ 




(Lit tin octet 


55 


CMP 




*Jui L £ « jjuIIes 


56 


MME 




iOittXturt correct . 3 


57 


READ 




;iJ t un octet 


58 


CUP 


f$DE 


; Debut de l r 4plloQue ? 


59 


BNE 


IZNQGQUD 




SO 


NOP 






a 


READ 




; Li t un octet 


ft 


COF 




,- juit* cfe i ' epilogue 


S3 


BEQ 


IZGQUD 


tEplloque = $D£/$AA{/SEB} ? 


£4 


UtiOGOUo SEC 




;Ce /i 'est pas ton {Era-duet ion) 


es 


RTS 






ss 




fS 








70 






11 









13 








74 


* Lecture, des n' de volume, piste et secteur 


75 




X = n' da slot x 16 


7i 




Read jjiorf* / 


OBVRP J DRVRBM ) 


77 


* Sortie 


Erreur 


=> Cnrry set 


/a 




Pas tf r erreur 


»> Carry clear 






TA&1ADR+3 - 


1' volume 


so 


r 


TA&LADR+2 « 


t" piste 


si 




TABLADR-f-1 - 


i' secteur 


as 




TABLADR 




*j 


* FegJ, jcj-e^ A = saa. 


r = too, X = liKhnnge 


64 


* Variables locales; 


20MPTEUF = Conpteur d'essai 


85 


* 


TAMP0N1 = Calcul du checksum 


B6 


* 


TAMPON2 ■ B&codaqa 4 et 4 


37 








»fl 


JSPJRJiFJ? 


EOT #^FV^ 


■" Tn P rfij 1 ^^yttjo t~& tj r 


ss 








so 






- a?5^ L'J'i L d 1 1 V *_' i 


»1 








92 




JWC COMPTEUR 


, T x 3 + 4 


93 




BEQ IIUOG0OD 


= 772 tefitAtives 


94 




REM) 


rLlt tin octet 


9.5 




(MP *S05 


l D&but dm j^roJo^rue ? 


9( 








fi 




SOP 




sa 




SEAO 




S9 




04P ISAA 


/ suite cfu prorogue ? 


mo 




B1JE Sreposlt 




101 




JJJ1T i$03 




102 




READ 


,-Lit un octet 


103 




CHP (ft se 


Jin cfu pj-oifi?-^* 


104 




OfJE Srepoal t 


. pjoJo^ue _ $D5/£AA/$9£ f 


103 




WA fSOO 


if nit, pour i a checksum 


ioe 




STA TAMPOJV1 


; Checksum incermedlalre 


107 




READ 


;Lit un octet 


108 




ML 




109 




sm BUffCSK 




ltd 






tiAi un octet 


JJI 




AM> TAMPOH2 


/■fleer swap ej-c J et J 


112 




STA TAB LAS fi, V F&:tfmX4i till Vlrfiv Ul&v-i.ills*ariL 


113 




EOR TAHPON1 


,-CflJeuJe Ja eiiac-Jtsuja 


114 




DEY 




115 




BPL Sdecode 


?fiuiv*nt ^oi/Pist/^ect/ChcJtsm 


us 




mr 


; checksum EOR c^eclcsiun 


I 17 




rkf. rzwofinnn 


7 ChppJfSfjJit id f ff&r&nt ? 


11B 






/lit tin Jnctnst 


115 




OMP f$DE 


„-i i 'Epilogue ? 


120 




BNZ IZHQGOUD 




121 




SOP 




122 




READ 


tLlt un octet 


123 




CMP 1 SAA 


i suite de 1 ' Apilocjiie 


124 




RUE 1ZSOGOUD 


: Epilogue = $DE/$AAf/$E3) 7 


j as 




CLP 


*C**t taut iscut f^CjB jio/a t&stt&J} 


US 




RTS 




127 








12H 


PHWWWJJJ'XWWHlTirWXW W Kit www 


m m it t w w w ww ww wn wt wnw w m ww w mw ww ww wx 


129 


1 




» 


130 


* Posit iotfnejflent rfu i>rja sur J* piste ffejtinatjfo/T * 


131 


* 






132 


************** wwwr**w www***** 


333 








134 


* ^T«3Lej pro jrfljiuTtei GELAV — Tempcyriae aulvant In valour- A 


135 


* Entree 


regis t re A = 


piste destifiet Jo/i x ^ 


136 




registre x = 


rttia^ro du a!ct x -?J0 


13? 


* 


P1STACTV = piste actueJJe X 2 


138 




DElA.mil et DE1AY0FF " tables de tenporlsatlon 


139 


* Sortie. 


tevlstre X - 




140 


* Variable* .- SLOTARM, PISTDE5T r PISTACTB, PISTPRiZIC, PI STDIFF 


141 


* 






142 


* Commutations des swlccftes fDepait sur une piste paired: 


143 


* Ordee crcissan t ; 3 


5 2 4 fi plsfiej 


144 


* 


ou : 3 


5 5 2 7 4 1 € f2 pistes) etc... 


14S 


* Drdre deeroissoitt: 7 


5 6 4 {1 piste) 


US 


* 


OU 3 7 


Q S £ 5 4 I P (2 pi ntns) *tf*. . . 


147 








143 


REMOVE 


STX SLOTABM 




14S 




STA FISTOEST 


t PisLts desLliiatlun x 2 


1 50 




(JJP fiSWCIV 


•'Fist* actvelle x 2 


J 51 




jBfiO 5n anove 


{Si &galite* *lots fin antlclpe 


152 




IDA tSOO 




153 




STA P1STDIFF 


Nombre d A pi stes dthjm pa rcaurue s 


I 54 




IBA riSTACTO 




1SS 




sta pisTcacc 




us 




SEC 


/jPlste actuelle - desrinatlon x 2 


157 




SBC PISTDEST 


; = nofflore de pistes A parcouclr 


158 




BEQ Sxtovend 


;Si m alors fin du mtsweme-n t 



J 



Pom's n° 25 



35 



159 




BCJ 


§arriere 


Si actuelle > destination: recule 


245 




LDA t$EB 


.-Fin epilogue 


ISO 




£QH 


f$FF 


Complement a 1: valeur absolue-1 


246 




JSR WDATA9 


I (idem) 


161 




IWC 


p tstactu 


Piste suivante en arsnt 


247 




LDA ISFF 


.'Octet synchro 


1 62 




BCC 


§svant 




240 




■ TXR »£1ATA9 




163 




ABC 


#?FE 


Vsleur ahsolue-1 


349 




HRESD 


.'Fin du mod* d'^critura 


164 




CEC 




PlsLe sulvante tj) Atrlera 


250 




RTS 




1S5 


§avant 


CMP 


PISTDIFF 


Compare pistes & ptrcourlr ec 


251 








1 66 




sec 


Smlnima 


parcovrues * Prend le minimum 


252 


WDATA9 


DELAY 2 


m 


1{7 




LDA 


PISTDIFF 




253 


KDATAJ 


DELAY? 




1 £H 


$nti n Itftttt 


CMP 


t$oc 


Vitesse limitie m deli de $0C 


254 




HRITS 




1 69 




BC? 


Sllmitf 


si ogzlo DELAY IntrhsngA 


255 




RTS 


(15) 


no 




My 




• slnon nouveau polntsur 


256 








171 


Sltmite 


SBC 






25 7 








2 72 




JSR 


Son 


Commute pouz 1b ulste suivente 


258 


i s < r t i 1 - t t t * t i i 3 < r t i f f , t i , . t t i , , . 


173 




LDA 


DELAYON. ¥ 


Temporise err fonotion tfo 


159 


i 






174 




JSH 


DELAY 




260 




175 




LBA 


PISTPREC i Piste :;:t'vcJr:iL- 


2(1 


******** 




* 


1 7t 




CLC 




■uecoimute celle-ci avec 


2C2 








177 




JSR 


Sot I 


un ootlp de retard 


263 








178 




IDA 


DELAYOFF, Y 


'Nouvelle temparisatioh 


264 


' Entree 


■ Reglstre 1 = GAP3 saut secteur = 12B 


I 79 




JSR 


DELAY 




265 


* 


Regis t re X = n 


' du slot x 16 


180 




INC 


PISTDIFF 


'Increments pistes parcouruss 


266 


* 


VOL. 148 D Nuaero du volume 


181 




BATE 


Soouole 


Bolide toujour? 


267 




PIST.K9 - Numire de it place 


182 




JSP 


DELAY 


? Tamper iei *t dGeantiaut e 


268 


* 


SECT.fffl ■ NumAm du .tsr^rrnjr 


183 




CLC 




la deirilteie pljle <;>sUiaiiLtt 


269 




CST. AA - SAA Iccmttnt*) 


184 


Son 


LDA 


eiSTACTO 




270 


* Sortie 


registr-e X - Inch&ngt 


185 


$ott 


AND 


t$03 


Piste nadula 4(4 switches ) 


271 




Carry set si dlsqve protege, clear sinon 


ISS 




SOL 




■On cu off solvent la valeur de C 


212 


* Sous-programmes appeles 


■ RTS1 = Delai (DELAY 12 A) 


187 




ORA 


SLOTARM 


'Calcul du switch sulvant le slot 


273 




WADR.4.4 = Ecriture en codeqe i et 4 


1 88 




TAX 






274 


* 


WDATAll = Scrlture epres 11 cycler 


183 




LDA 


Dnvso,x 


-Conunute svr la honn*: pjjtc 


2 75 


* 


WDATA9 ~ Ecriture stores 9 cycles 


ISO 




LDX 


SLOTAKU 




21i 








1 31 




RTS 






277 


fFHITADIi 


BSC 


'Per tfifaut C6Jt£ry Jtft { — erir^ur} 


192 










27$ 




HRSTATOS 


■Test; et initialise 2 'ttr i ttt£# 


193 










219 




mi Stin 


'Si protection aloes fin 


154 


******** 


* ** * * 


************ 


**********r*************** 


ISO 




LDA fSFF 


Octet de synchro. 


iss 


* 








281 




HFHDDE 


'.Ddb-Nt et Jf octet fS; 


jes 




262 




DELAY7 


f fl 6) 


J J7 










7 A3 


Sxynehm 


DELAY! 2 A 


•Ee-rit lea octets {26) (28) 


1 98 










234 




DELAY12A 


• iJe -*yni-^r£N >4C< >40< 


1 99 










285 




WRITE 


■Ecrlt un octet {$) f9f 


200 


* En trie 


i KmgittC* X - n 


1 du slut * Jf 


286 




UtlLAl2 


ill) (11) 


201 


* Sous-programmes applies 


RTS2 - Delai tOELAYHB) 


281 




DEY 


(13) (13) 


202 


* 






WDATA9 = Etiriture apres 9 nycles 


28$ 




BNE §synchro 


(16) (15) 


203 


* 






WDATA7 = Eeeltur* *pri# 7 


283 




LDA ISD5 


'ProIocfU'e d\i chasop d'adresse (17) 


294 










190 




jss wa rase 


■ ! 7 + fi + Q = >12*r (1 5J 


2 as 


KB/ TDATA 






191 




LDA ISJUt 


(1?) 


206 




t/RSXATUS 


'Test et Initialise l'ecritvre 


232 




JSli WADRS 


r (ifteiaf 


207 




IDA 


t$ST 


Octets de synchronisation 


233 




LDA t$96 




208 




WRMODE 


Debut et ecrlt le 1[ octet fJJ 


294 




JSR HADR9 


'Fin prftl (idenf (1 SJ 


90S 




DELAY? 


tit) 


2 95 




LDA VOL. KB 


(10) 


no 




DELAY1 


OS) 


296 




JSR KADR. 4- 4 


t IB * 6 t B = >32< i >32< cvclss 


212 




WX 


f$04 


Encore 4 c«?tct? du gap 2 (2d 


297 




LDA PI ST. MB 




212 


§syr\clii w 


DELAY 7 


(27) <27) 


298 




JSR WADR.4.4 




213 




JSX 


WDATA 7 


•27 * t * J ■ J40ir fJSJ (Ih) 


2SS 




LISA SECT.™ 




214 




DEY 




(17) (17) 


30 




JSR HAOR.4,4 


ritiwa) (15) 


215 




BNE 


gsynchro 


(19) (20) 


301 




LDA VOL.NB 


(18) 


216 




IDA 


i$D5 


Proiooue donnies (21) 


302 




EQR PI ST. HB 


Cflicirie- I "octet de cJhec^^LLit (21) 


217 




JSR 


HMTiS 


21 J f J- 9 = 13f<- (IS) 


303 




EOR SECT. SB 


(24) 


21 a 




LDA 


tfJiA , 


(17) 


304 




PSA 


Pff*j(»rvft la rflfiilf;*^ (27) 


219 




jss 


WOAJVSJ 


17 t 6 + 9 - >32< 


305 




LSR 


flic*J. ? fl (<£'&<daq9 4 «t -1} (29/ 


220 




LDA 






306 




ORA CST. AA 


<-> ORA f$t\A jirnij * 1 cyclm >32< 


221 




JSR 


WD ATA 9 


(idem) (IS) 


307 




WRITEBIS 


Ecrl t octet f 9) 


222 




IDT 


t$Si 


$IS6 zeros i ecrire (17) 


308 




PLA 


(13) 


223 




DELAY 6 , 


(23) 


309 




ORA fSAA 


(15) 


224 




BNE 


Spr&mier 


(2t) 


310 




JSR KADR1 1 


15 + S * 11 - >32< cycles (15) 


12S 




DELAY 1 IB 


£ericur* d# f5f jprtr (2€) kx 


311 




LDA tSDE 


Imscrit 1 'epilogue (17) 


226 


5p£-CJHicjr DELAY4 , 


(30) (30) 


312 




J5B HADR9 , 


1 7 ■* f J- 3 = >3J-f 


217 




LDA 


Ittf 


Zero en code i et 2 >32^ >32< 


313 




LDA fSAA , 




228 




WRITE 


Bar It un octet (!) (9) 


314 




JSR WiDBS 


(Idem) 


229 




DEY 




(11) (11) 


315 




LDA f?E3 




230 




BNE 


Szero , 


(13) (14) 


316 




JSR WADR9 , 


Fin epilogue (idem) 


231 




delay 3 


(ID 


317 




CLC 


Pas d'erreur 


131 




»UM 


(It) 


318 


Stilt 


HREl/D j 


Fin tilt mnfte &rrlt*tt-*? 


233 




DBLAY12B t $100 zeros (30) (3D) 


.IIS 


RTSJ 


UTS 




234 




LDA 




>22< ?32< 


320 








233 




miTE , 


fcfcrlt 19) 13) 


321 


UAVR .4.4 


PftA 


Codsge 4 et 4 (3) 


23 6 




LDA 


ISH 1 


(U) (11) 


322 




LSR , 


15} 


237 




DELAY! 


(13) (13) 


323 




ORA CST. AA , 


<=> ORA fSAA + J cycle fSJ 


239 




iny 


1 


(15) (IS) 


324 




WRITE 


Ecrit le 11 nibble (9) 


139 




R«K 




(17) (16) 


325 




PLA 


03) 


240 




JSS 


HDATA9 


1 7 + 6 + S - ? 32< (15) 


32 i 






(IS) 


241 




LDA 


tSDE iEpIluyue ties donnees (17} 


32 7 




ORA t v AA ; 


(21) 


2*2 




JSR 


MDATA9 


17 + t : + <t - >32< cyciss 


32 a 


MADK1 1 


DELAY 2 


(2) (23) 


243 




LDA 


tSAA 




329 


HA0H9 


UEU. 12 ) 


m (4) (25) 


244 




JSR 


WDATA3 


tides) 


330 




DZLAxl ; 


(9) (11) >32< 



V 

36 Pom's n 25 



331 


WRITE lEcrit un octet (9) 


332 


RTS 


1151 


3?? 






33 i 


DFB 


SAG, $A0, $AQ.-RSsldu inutile 


335 






tSf 




*JHjt ** ****** **** * ** * * * *** 


337 


# 


x 


338 


* TemporlsBC 


ion sulvant la valeur de A * 


339 


* 


* 




************* 


- - - ■ ■* t - - ' ' ' • ' * 'J " t * * r ; r . ■. , . . . . | 


341 






342 


* flierSs; h - 


BLijrSe £?**■ la temporisation 


343 


* Tern pcj j; 1 s a I 1 




344 


» ci/hptO at cuapi'l rant utilises pour temporiser 1 sec. 


345 






34 S 


BELAY LDX 




347 


§2 DEX 




34a 


BSE 


S2 iBoucle 16 fols 


349 


ISC 


COMPTO {Increment de COt&Tl toates 


350 


BNE 


S3 i les 256 DELAY* - 24, 6 as 


351 


INC 


C0MPT1 ;Noabre / 254 des DELAYS totsu* 


352 


§3 SEC 




353 


SBC 


SStli 


354 


BSE 


DELAY .'Boucle A 9S mi oxa pecondes 


355 


RTS 




35 6 






357 


* Table ties 


teatporlsstlons 


358 






359 


* D&la£a pemret tajtt jne deceleration et i;ne 


3S0 


* deceleration progressives du bras du iecteur. 


3(1 






3U 


OEM VON CPH 


fai,$30,$2B;Ai;ail£ratitln 1 d&etliiatian 


363 


DFB 


424,420, tie 


364 


DFB 


SIB, SIC. $IC;vltesse stablllsie 


SS5 


DFB 


S1C,$1C,S1C 


3Sf 






367 


DELAYQFF DFB 


S70, S2C, $26; Idem pour les switches oft 


168 


DFB 


522, 31 F, 51 E 


3S» 


DFB 


$1D,$1C,$1C 


373 


HF6 


sic,fic,2lc 


371 






372 






373 


************* 


*************** 


374 


* 


* 


375 


* fieri ture 


d'ujie piste * 


37S 


* 


* 


377 


**************************** 


376 






373 


* formate une 


plsce ec dininue CWPJ en ronccloji aes tests 


380 


* Entree; ES3AIHAX = Nombre maximum d'essaii par piste - 3 


381 


* SAP3 = Ncmhre de Sit de synchronisation 


3S2 


* SLOT = Numera du slot 


383 


* TFSTMAX - Ncmhre maximum de tert p*r* eaitr'aifr 


394 


* Sertie; Errcur — > paj-qf act 


335 


* faf 


cf'erreur ^J - tarry tjcdi 


JBS 


* Setis-preoriJimes appelea: HTS2 = Temporise 12 cycles 


387 


* 


WR1TADR » Ecritare del edtesses 


388 


* 


HB1TDATA = Eeri tare des donnees 


389 


* Variables locales: 


390 


* ESSAIMB = 


MiMahrit d'of jtif d« lozx&taqo par piste 


331 


* TESTNB - 


FombrG ds tests lecture 


392 


• SECT. SB - 


liumenj du jrecteui «jg Q&u£a 


333 






394 


WRI TRACK LDA 


ESSAIMAX ;Nca.bze maximum (31 d'esssis 


395 


STA 


ESSAISB ;de formBtage d'une piste 


396 


reformat LDY 


fSSO ;Longueur du napl " 12& 


397 


MX 




39B 


STA 


SECT. SB 


3SS 


•Mt 


Sgapl 


400 


§secteur Lur 


UA1'3 iLOngueur du gap 3 


401 


Sgapl LDX 


SLOT 


402 


JSR 


tfRITADR 


403 


BCC 


Sfiaerr 


404 


JHP 


PTG? ;Fn er** rf'wr*Mi' JiTftr* fin 


405 


£rtO*xr LDX 


SLOT 


406 


JSR 


WRITDATA 


407 


ISC 


SSCT.SB 


toe 


im 




409 


CMP 


mo 


410 


BCC 


Ssecteur ;Ecriture des 16 secteurs ? 


til 






412 


LDY 


f$0F ,'C*rte des It ssetvurs 


413 


STY 


SECT. SB 


414 


IDA 


TESTMAX sNombre maximum (16) 


415 


STA 


TESTNB ;de tentstivffs de lscture 


416 


Slnltmap STA 


SECTMAP, Y ; Initialise Ik carte A $10 



417 




UEY 






412 




apL 






41! 




LOA 


SAP3 




420 




SEC 






421 




SBC 


tS05 


tfDiRbre do cync bytes (GAP31 — 5 


422 




TAY 




i^ttentc prvpvcl J*Jin*il* an qapi 


42 3 


Swaitcap OELAYiza , 


12 - 12 


424 




DELAY 123 , 


+ 12 - 21 


425 




DEixn 


+ 7-31 


426 




DELAY4 


+ 4-35 


427 




DEY 




+ 2-37 


42« 




am 


SwmltQtp 


-* 3 ** 40 cycl e s ** 1 syr>T hyt- *? 


429 




LDX 


SLOT 




430 




JSH 


PEADZSS 




431 




BtS 


Serrqap 




432 




IDA 


SECTEUR 


n " du sectear la 


433 




BBQ 


SoksestO 


Sect-eur zero ? 


434 




DEC 


CAP3 


SJaoji CA P3 &fft t rop grand 


43S 




LDA 


BAF3 ■ 


en 2e dimlnus 


436 




CHP 


aspwjff 


GflfJ Jl'&St-ll pus Lcop {JUL/jrt 7 


437 




BCS 


Serrgap 




438 




SEC 




greeuri 1# tiiaqut? va crop vite 


43$ 




P.TS 






440 










4 41 


§seet**t 


LDX 


SLOT 




4 42 




JSR 


READRES 




443 




BCS 


SsecLtiLL 




444 


Saxsec t Q 


LDX 


SLOT 




445 




JSR 


READATA 


Test des doan§es 


446 




BCS 


§secterz 




447 




LDY 


SECTEOR 


n' du secteirr v£rifl& 


448 




LDA 


SECTMAP. Y , 




449 




ONI 


Saecterjr 




450 




LDA 


t$inr 


rfiflcn i# -WfliMjy* d«i3 la cart* 


451 




STA 


secrr/Mf, r 




452 




DEC 


SECT. SB 


Un jecceur de mains a tester 


453 




BPL 


Ssectest 




454 




CLC 




Qui, &lors OK 


4H 




firs 




at c 'est finl 


4SC 










457 




DEC 


TESTSD j 




45S 




BNE 


$ sect est .'Encore une ? 


455 




DEC 


ESSA INE 


3 r-af ortrratagss f(Jrtf > j' constate; 


460 




BNE 


Serrgap 


□jrt r*f<M?^ha£* la piste ? 


461 




SEC 




Tcop c 1 est trop 


462 




firs 




KO 


4f3 










J €4 




in* 


TESTMAX 




465 




ASL 






466 




STA 


TESTNB 


TESTMAX X 1 - 32 


4(7 


Scherehe 


LDX 


SLOT 




468 




JSR 


READRES ,'Recherche le dernier secteur 


469 




BCS 


Serradr 




470 




LDA 


SECTEOR im' du secteur 


471 




CUP 


nor 


D<ij?n i er recteur ? 


472 




BEO 




Qui ; r<z£ or ma t e un ppw pJ loin 


473 


SerrafJr 


DEC 


TE5TSB 


3j,non : encore un vssal * 


4 74 




BNE 


Scherche 


Chercrhe pt96&Wt d tours du distjve 


475 




SEC 






476 


RTS2 


RTS 




'KO (at RTS dB t&mporlsatlolt) 


477 










4 7B 




LDX 






47S 


Smlt 


DCLAYISD 1 12-12 


480 




DELAYHB 


■* IS - £4 


481 




DELAY 3 


+ J =« It 


482 




DEX 




i 2-29 


483 




BNE 


Swalt 


■ + 3 = 32 cycles * 1 byte 


484 




JMP 


re forma t 


•Recommence an forma tafffc 


48S 










4B6 










48) 


* Constant's 


ec variables 


488 


* _ 
















489 










490 


CAPUIN 


DFB 


SOE 


■ Largeur maximum pour vn nap 3 


491 


CAPMAX 


DFB 


SIB 


■ minimum ' *" * " 


492 


S2SA1HAX 


DFB 


$03 


• tfombro max d* essais f&£9*lit:4i|fd 


493 


TESTMAX 


DFB 


$10 


•Nombra maul do teats de lecture 


494 










495 


SLOT 


DS 


1 


'Nitetero du slot du drive x 11 


496 


PISTACTU 


DS 


1 


Flste r£ei x 2 (sau£ Infer,- $50) 


4)7 


TBSTSB 


DS 


1 


'Noistben du tests 


4 98 


SECTMAP 


DS 


It 


'Carta das secteurj v&riflas 


499 


CISTDEST 


DS 


I 


•Piste destination jc 2 flnit.» flj 


500 


SLQTARK 


DS 


1 


rjfito*ru du slot pomr t<tGVARM 


301 


PISTB1FF 


DS 


1 


•fFombre de pisttt pazcuurues 


502 


PISTPREC 


DS 


1 


Piste precedent* A pistactu x a 



Pom's n° 25 



Tant qu'a fkire 5 choses a la fois, 



Que ceux qui 
aimcnt travailler en 
faisant deux on trois 
choses a ia fois ne 
changent rien, au 
contraire, avec 
Apple etjas lis 
peuvent faire mieux. 
Jazz de Lotus, c'est un programme 
cree pour Macintosh 512 Ko, equips d'un 
lecteur externe qui permet de devenir un 
parfait jongleur professional. 

Cinq programmes en concert, 
c'est-a-dire un tableur, un grapheui; un 
gestionnairc dc fichicr, un traitement de 
texte et un programme de 
communication r6unis en tin seul 
programme. Ou comment etre a cinq 
slit la m&mc souris. 



s" 

I 



p. 
f 



1 




Pouvoir gerer cinq applications a 
parti] 1 d'un seul ecran. modifier une 
donnee dans une application et qu'elle 
se modifie automatiquement dans les 
autres. pouvoir sauter d'un graphe a un 
traitement de texte sans attendre les 
secondes qui durent une fiternite pour 
changer de programme, c'est bien... 

Quand on s'apergoit que ces cinq 
progi'ammes sont individuellement 
exceilents, c'est une revolution. 

Jazz, c'est I'outil ideal d'un directeur 
de service. 

Prcnons un exemple qui exige beaucoup 
de souplesse, de rapidite, et de doigte\ la 
direction des services secrets ; 
- Avec un tablet ir capable d'afficher 
8192 lignes sur 256 coloiuies, Ia gestion 
devient beaucoup plus facile. Si un fait 

/ 



nouveau apparaTt, rien n'est pins facile 
que d'gtudier deux ou trois hypotheses 
afin de nc pas ctrc pris dc court. 
- Quand un projet est tin pr§t, il taut 
bien le presenter a ses siiperieurs et 
parfois rneine beaucoup plus haut; un 
graphcur pcrinct dc transformer toutes 
les donnees numc-riques obscures en 
graphiques lumineux. 




... 



J 



- Si le projet est accepts, un traitement 
de texte est necessaire pour que chaquc 
agent concerns soit au courant dans ses 
moindres details. Evidemment quand 
on travaille dans un tel service il vaul 
mieux pour Macintosh pouvoir copier, 
effacei; modifier, ou roller des dessins,a 
chaque instant. 




Apple Computer France, Avenue de I'Oc&inr 



autant les faire en meme temps. 



* F ii flier Edition 



Fenetre 



Graphe Trace fine Carac. Style 



HEED 



Hgrandir 



Presse-papiers 
Tableau des references 



UENTES 



Marthe 



fter tr 



j5 Ve rites i 
_7_ CoQt .desp.ro...; :„.-.. 



UENTES 



Mart he Choc o 
REPARTITION 
Diret teurs Wentes 



8 



10 

1 1 



Tr a re? ports 



1 Z 
11 

17 



Benefice brut : 



frais 



22, 



PubMcite . 270 
Com mi 33i ore j 225 
Divers bt< 



Total des frais- 573 



1 500 - 
1000 - 
500 




Yentes 

Benefice 




lertrim je-metrim 5en*StriW 



&1 



a I 
= -3 



ftta/ie t& travail jazz. 



: A de rniiitahmil'. Fi.P tf 1, TO-w Les Mis Cedex. 




Grace a son gestionnaire de fichier. Jazz 
fait la fusion antnmatique entre UQ 
memo el une lisle de correspondants a 
silectionner selon un criterc special. 
Et avec un modem full duplex 1200 bauds 
en i in instant votre correspondant 
recoil louies les informations precises a 
l'autre bout du monde. 
Avec jazz 1'entreprise est rentable, 
rondement menee. precise et discrete, 
inutile d'avoir 35 collaboraleLirs pour 
rediger le projet. 

Jazz e'est cinq programmes life 
entre eux si parfaitement que I'agent 
double est etiiin enterre. place a 1'ageni 
quintuple. 




Apple 



AD LITTERAM, POUR TRAVAILLER.,. A LA LETTRE 

Jiilien Thomas 



Les traitements de texts et, en 
fait, quasiment tous les 
programmes qui fonctionnent sur 
lc Macintosh beneficient de la 
presence de nombreuses polices 
de caracteres. Ceci va dcs 
'polices systemes' Chicago, 
Monaco et Geneve jusqu'aux 
polices specialisees (techniques, 
scientifiques.,.) en passant par 
les polices 'ludiques' style Cairo. 
Seulement, ilyaun revers : il est 
souvcnt tres difficile de savoii 
quelle(s) touche(s) doivent etre 
enfoncee(s) pour obtenir tel 
caractere, d'autant plus que. 
certaines polices en comporte 
plus de 220 (Times, par 
exemplej. En fait, on pourrait 
classer les caracteres en trois 
categories * 

• les caracteres accessibles 
directement au clavier avec une 
seule touche ; 

■ les caracteres accessibles au 
clavier, mais en deux temps 
(Option quelque chose plus 
autre chose) ; 

• les caracteres absolument 
inaccessibles soil sur le clavier 
normal, soit sur le clavier 
'etendu' du Macintosh Plus, 
soit sur les deux. 



Pour la premiere categorie, la 
nouvelle version de l'accessoire 
"clavier" de chez Apple (mais si ! 
ceux qui ont commence dans unc 
calculatrice HP, avec des dollars 
issus de la vente d'un Combi 
Volkswagen et d'un garage...) 
fait 1'affaire, meme si ce n'est pas 
toujours pratique (on ne peut pas 
reperer un caractere au premier 
coup d'ceil). 

Pour la seconde categorie, un peu 
de chance et beaucoup de patience 
permettent parfois de s'en sortir 
(qui peut dire instantanement 
comment on obtient le caractere 
'E', sachant que l'on nc l'obticnt 
pas de la meme facon sur le Mac 
et sur le MacPlus ?). 



Quant a la troisieme categorie, 
cela devient presque impossible, 
car une des solutions les plus 
simples consisterait a placer le 
caractere voulu dans le 
prcssc-papiers depuis un 
programme Basic et avec des 
CHR$(Truc), 'True' etant lc code 
ASCII du caractfere (encore faut-il 
le connaitre), ensuite passer a 
MacWrite (par exemple) pour 
enfin coller le fameux caractere 
dans le document a traiter. Pas 
tres souple... 

Vnila qui justifiait Vecriture du 
petit accessoire "ad bttcram" qui, 
I Pom's, remplace "Clavier" 
depuis deja plusieurs mois, ce qui 
nous permet d'etre absolument 
sur de son efficacite\ ainsi que de 
sa fiabilite. 



Utilisation 

II n'y a pas grand chose a dire. 
L'accessoire respectant scmpu- 
lcuscment l'"intcrfacc utilisateur" 
Macintosh, vous retrouvere/ ici 
toute les functions qui font le 
eharme de cette machine : 
Couper/Copier/Coller depuis le 
menu "Edition" ou au clavier, 
selection, selection etendue, 
edition, etc. ct, si vous disposes 
d'un MacPlus, displacements par 
les touches flechees. 



Times 
Symbol 
Helvetica 
Courier 



^Chicago 



Geneua 
Monaco 



1 



En fait, si on excepte des points 
de detail que nous examinerons 
plus bas, la methode d utilisation 
cc resume a ccci : 



• appel de l'accessoire depuis le 
menu * (classique !) ; 

• choisir la police dans lc menu 
installe par l'accessoire 
(comme "Clavier") ; 

• selection et copie des caracteres 
desires ; 

• passage au document dans 
lequel seront colles les 
caracteres. 

Determination de la 
taiHc de la police 

Notre choix s'est portc sur le 
format '18 points', ce qui 
autorise une bonne lisibilite. 
Toutefois, les polices de 
caracteres n'utilisant pas cette 
taille n etant pas rares, il fallait 
bien sur prevoir l'affichage en 
fonction d'autrcs possibilites, 
d'autant plus que, meme si une 
police exisle en 18 points, vous 
pouvez fort bien ne placer, par 
exempk, que les formats 9, 12 et 
14 dans le systeme. Forts de ces 
constatations qui, vous en 
conviendrcz aiscment, ont 
demande un effort intellectuel a la 
liinite de l'insoutenable, nous 
avons employe le 'mecanisme' 
suivant ; 

• affichage en 18 points si cette 
taille existe ; 

• sinon, on part a la recherche 
d'une taille validc inferieure a 
18 points : 17, 16, 15... 
jusqu'a <3 points ; 

• si la police en question n'existe 
pas dans une taille inferieure a 
18, on essaie, en desespoir de 
cause, de trouver un format 
compris cntrc 19 et 24, cn 
partant de l"'axe" 1 8 ; 

• si Ton a toujours rien truuve de 
valide, il ne nous reste plus 
qu'une seule solution (mais 
uon pas le suicide... 
m'enfin !), forcer l'affichage 
de la police en 24 points, ce 
qui n'est ni tres esthetique ni 
tres rapide, mais on peut se 
consoler en se disant que ce 
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cas de figure n'apparattra 
pratiquement jamais. 

Dans le cas, pas frequent, d'une 
police existant uniquement en 
taille 24 points ou plus, ou encore 
d'une police specialised 
comportant un grand nombre de 
caracteres tres larges, il y a de 
fortes chances pour que certains 
d'entre-eux se retrouvent hors dc 
la fenetre de 1'accessoire. Si cela 
arrive, eL si le caractere recherche 
n'est pas visible, il suffit de 
couper (ou effacer) une chaSne de 
longueur suffisante pour que les 
caracteres masques soient a 
nouveau apparents. 

Si vous 
programmez... 

...et quel que soit le langage 
utilise, vous ctcs ccrtaincment 
amene a rechercher dans urte table 
(que You a rarement sous la main 
au moment voulu) le code ASCII 
de tel ou tel caractere ; nous 
avons pense a vous. Si un 
caractere est seiectionne (un seul) 
son code ASCII cn notation 
decimale s'affiche dans line petite 
'case' situee en bas et a droite de 
notre fenetre : 



17 



Si vous cliquez sur ce code, vous 
obtenez le code ASCII en 
notation hexadecimale, et ce taut 
que le bout on de la souris est 
maintenu enfonce. Pendant cette 
periode, le curseur devient 
invisible sfm de ne pas gener la 
lecture du code : 



:;<=>?@flBCffiW6° 



-(Flt 



$11 



11 faut noter que, sur le dessin 
ci-dessus, le curseur n'est pas 
invisible, ceci en raison de la 
difficulte" de representer ce type 
d element lorsque, justement, il 
est invisible. Sur ce, nous allons 
maintenant prendre un repos tout 
a fait indispensable... 

<3 



ad litterarr 



ad litter 



ad lit! 



m 




Comment faire ? 

Vous n'avez pas la disquette Mac 
25: 

Pour gene"rer Faeces soire a part.r 
du source et desfichitrs lisics plus 
bas, il faut : 

* placer, sur urie meme disqife.He, : 
1'cdite.ir (Edit), . I'assenibleur 
(Asm), le 'linker'; (Link),' Exec et ■ 
Font-DA Mover (avec un fichier 
sysleme pas trap volumineux. 

. tous ceci ■ trouve place sans 
probleme, meme sur ime dis- 
quette 400Ko) ; 

♦ depuis Exec, lancer 'ad litterarn. 
Job'. En fin d'execution, et s'ii 
n'y a pas eu d'erreur : d'as- 
sembiage, Font-DA Mover est 
appele automatiqusment ; 

• ouvrir le fichier 'Accessorium' et 
installer 1'accessoire du vous 
voulez ; 

* e'est tout... 

Yous avez la disquette Mac 25: 

* utilisez Font-DA Mover pour! 
installer 1'accessoire sur les dis- 
quenes dc voire ciioix (il sc 
trouve a la fois dans le systeme et 
dans un fichier baptise 'Accex- 
sorium' ; 

• e'esttout... 



Fichier Exec 
'ad litteram.Job' 

Asm ad litterarn. Asm Exec Edit 
Link ad litteram.Unk Font-DA Mover Edit 

Fichier 

'ad litteram.LInk' 



Source 

'ad litteram.Asm' 

Note : le caractere f indique la 
continuity d'une ligne (ne pas 
I'inserer dans le code I). 

RESOURCE 'DRVR' 30 'ad litterarn' 
,* Routines utilise es : 





.Trap 


_AddResMenu 


$A94D 


] 


.Trap 


_BeginUpdate 


$A922 


/Resources 


-Trap 


_Checkltem 


$A945 


ad litterarn 


.Trap 


_DeleteMenu 


$A93G 


/output Accessorium 


Trap 


_DisposMenii 


SA932 


/Type 'DFIL' 'DMOV 


Trap 


_DisposWindow 


$A914 


$ 


Trap 


DrawControls 


$A969 




Trap 


_DrawMsnuBar 


SA937 



.Trap 


_DrawString 


$AS84 


Trap 


_EndUpdat9 


$A923 


Trap 


_EraseRect 


$ASA3 


Trap 


FindControl 


$A9fiC 


.Trap 


_FrameRect 


$A8A1 


Trap 


_GetCursor 


$A9B9 


Trap 


_GetFNum 


$A900 


Trap 


_GatFontlnfo 


$A88B 


.Trap 


_GetHandloSize 


$A025 


.Trap 


_Getltem 


$A946 


.Trap 


_GstMousa 


$A972 


.Trap 


_GetPort 


$A874 


.Trap 


_GetSerap 


$A9FD 


.Trap 


_GlobalToLocal 


$A871 


.Trap 


_H!deCursor 


$A852 


.Trap 


_HiliteCon1rol 


$A950 


Trap 


KilitaMenu 


$A938 


.Trap 


_HLock 


$A029 


.Trap 


_HUnLock 


$A02A 


Trap 


JnitCursor 


$A850 
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cE3 



Trap 


JnsertMenu 


$A935 


Trap 


JnvalRect 


$A928 


.Trap 


_MoveTo 


$A893 


.Trap 


NewControi 


$A954 


Trap 


_NewManu 


$A931 


Trap 


NawPtr 


$A11E 


Trap 


_NawWindow 


$A913 


Trap 


_Pack7 


$A9EE 


Trap 


JSflnRect 


SASAO 


Trap 


_PutScrap 


$A9FE 


.Trap 


_RealFont 


SA902 


Trap 


_SetCTitle 


$A95F 


Trap 


_TE Activate 


$A9D8 


Trap 


JTECalText 


JA9D0 


Trap 


JTECIIck 


$A9D4 


Trap 


_TECopy 


$A9D5 


Trap 


JTECut 


$A9D6 


Trap 


_TEDaactivate 


$A9D9 


Trap 


JTEDelete 


$A9D7 


Trap 


_T£ Dispose 


JA9CO 


Trap 


_TEIdle 


$A9DA 


Trap 


TElnsert 


$A9DE 


Trap 


_TEKey 


$A9DC 


Trap 


_TENew 


$A9D2 


Trap 


_TE Pasta 


$A9DB 


Trap 


JTEUpdate 


$A9D3 


.Trap 


_TextFcnt 


$AS87 


.Trap 


TeoctSize 


$AS8A 


Trap 


_TrackControl 


$A968 


Trap 


SetCursor 


$A851 


Trap 


_SatPort 


$A873 


Trap 


_ShowCursor 


$A853 


Trap 


_SilliDown 


$A973 


Trap 


_String Width 


SA88C 


Trap 


SysBeep 


$A9C6 


Trap 


_ValidRecl 


SA92A 


Trap 


ZeroEcrap 


$A9FC 



; EQUIVALENCES 
; Type {fm/Anements 

mButDwnEvt EQU 1 

keyDwnEvt EQU 3 

keyUpCvt EQU 4 

autoKeyEvt EQU 5 

updatEvt EQU 6 

activate Evt EQU 8 
,' D&calagss/ffnregistrement evinement 

evtWum EQU $0 

evtMessage EQU $2 

evtMousa EQU $A 

evtMeta EQU $E 

evtMBut EQU $F 

/Messages pour le 'driver' (accessoire) 



aeeEvant 


EQU 


$40 


accCursor 


EQU 


$42 


accMenu 


EQU 


$43 


accUndo 


EQU 


$44 


accCut 


EQU 


$46 


accCopy 


EQU 


$47 


accPaste 


EQU 


$48 


accClear 


EQU 


$49 



; dSsactivee et pour toucha 'shift' 
active Flag EQU 
shiftKay EQU 9 

; Decalagss/enregistrement fenetre 
portRecl EQU $10 

WindowKind EQU $6C 
WlndowSize EQU $9C 

; Type da fenetre 
noGrowDocProc EQU 4 

; Pour la routine de conversion 
numToString EQU 

; DQcaiagesfDevice Control Entry' 
dCtlWindow EQU $1E 
dCHRBfNum EQU $18 
dCtlManu EQU $26 

; Pour passage des evenements 
CSCoda EQU $1A 

CSParam EQU $1C 

,■ DScalages/rectangle 'QuickDraw' 
top EQU 

left EQU 2 

bottom EQU 4 

right EQU 6 

; Adresses pour 'Couper/Collef 
TEScrpLength EQU $AB0 
TEScrpHandle EQU SAB4 
Scratch3 EQU $9FA 

; De'calages/enregistrement TextEdit' 



teLinaHite 


EQU 


$18 


taAscent 


ECU 


$1A 


teSetStart 


EQU 


$20 


teSelEnd 


EQU 


$22 


taLength 


EQU 


$3C 


teTextH 


EQU 


$3E 


teFont 


EQU 


$4A 


teSize 


EQU 


$50 



; De'caiages/anregistrement 'Fontlnto' 
ascent EQU 

descant EQU 2 

; Curseurs 'systeme' 
iBeamCursor EQU 1 
watchCursor EQU 4 

; Pour Instruction '_NewPW 
clear EQU $200 



.Equivalences 'maisort' 



• Bits pour fenetre activee ou 



BS 

MaxC 

Handled! 

HandleCtl? 

HandlMenj 

RefMenu 

TamponCtl 

TamponTx 

Art id o 

NPoli 

DrapeauMdf 

DrapaauCollB 

DrapnauCurs 

CodeCourant 

HandlText 

Info 

HandleAcc 
NombreDeei 



EQU 8 
EQU 300 
EQU WlndowSize 
EQU HandleCtM 
EQU HandleCti2+4 
EQU HandlMenu+4 
EQU RafMenu+2 
EQU TamponCa+128 
EQU TamponTx+240 
EQU Artlcia+2 
EQU fJPdi+2 
EQU DrapaauMdM 
EQU DrapeauColIe+1 
EQU OrapeauCurs+1 
EQU CodeCourant+1 
EQU HandlText i4 
EQU lnfo+8 
EQU HandleAec+4 



PositionND 

NbrHexa 

PositionNH 

TailleTampori 
Qui 



EQU NombreDeci44 
EQU PositionND+2 
EQU NbrHaxa+4 

EQU PositionNH+2 
EQU $100 



NbrCaracteres EQU 240 

; En-tete de I'accessolre (voir Pom's 19) 
Base 

DC $400 

DC 

DC $1bA 

DC 

DC Ouvartura-RasB 

DC Status-Base 

DC Controle-Base 

DC Status-Base 

DC Farmsture-Base 



Titre 



DC.B 24,'ad litteram (et 
encore. ..),0 



Tttre2 

DC.B 7 ( 17, , Pom"s , ,17 

OUVERTURE DE L'ACCESSOIRE 

Teste si I'accessolre est deja ouvert, 
$i oui, retour vers /"application. 
Autrement, on debute I'inifialisation 
par la creation d"un tampon de 
memoire non relogeable. 

Ouverture 

D3-D7/A1-A4.-(SP) 
A1 ,A4 

dCtlWindow(A4) 
Statu s4 
#4.SP 
SP.-(SP) 



MOVEM.L 
MOVEA.L 
TST.L 
BNE 
SUBQ.L 
MOVE.L 
_GetPort 
MOVE.L 
_NewPtr, clear 
TST DO 
BEQ.S MemoireOK 
MOVE #7.-(SP) 

SysBeep 
BRA Statu s2 



#TaillBTampon,D0 



; Ouverture de la fenStre 

MemoireOK 

MOVEA.L 
SUBQ.L 
MOVE.L 
PEA 
PEA 
MOVE 
MOVE 



A0,A3 
#4,SP 
A3,-(SP) 
RectFenetre 
Titre 

#Oui,-(SP) 
#noGrowDocProc.f 



-(SP) 
#-1,D0 
D0,-(SP) 
#Oui,-(SP) 
-(SP) 



MOVEQ.L 
MOVE.L 
MOVE 
CLR.L 

_NewWindow 
_SetPort 

MOVE.L A3,dCtlWindow(A4) 
MQVE.L DctlRefNum(A4),f 
WindowKind(A3) 
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* Creation du menu 'Pom's' 

MOVE daiRefNum(A4),D0 

NOT DO 

LSL #5. DC 

ORI #$C000,O0 

SUBO.L M,SP 

MOVE D0,dCUMenu(A4) 

MOVE D0,RefMenu(A3) 

MOVE D0,-(SP) 

PEA JttieZ 

_NewMonu 

MOVE.L (SP),HandlMenu(A3) 
MOVE.L FFONT'.-fSP) 
_AddResMenu 

; Creation du boufon 'Police .. complete' 
SUBQ.L #4,SP 
MOVE.L A3,-(SP) 
PEA RactBouton 
PEA TlUeBouton 
MOVE #Oui,-(SP) 
CLR.L -(SP) 
CLR.L -(SP) 
CLFI.L -(SP) 
_NewContro) 

MOVE.L {SP)+,HandlaCt!(A3) 

I Initialisation de la chafne contvnant 
; Iss caracteres de code ASCI1 16-255 



LEA 
MOVEQ 
MOVE 
@1 MOVE.B 
ADDQ.B 
DBBA 



TamponTx(A3),A2 
#$10,D1 

#NbrCaracteres-1,D0 

D1,(A2)+ 

#1,D1 

D0,@l 



; Creation d'un enregistrement 
; T BxtEdif, determination de la police et 
; de la tattle de depart, initialisations 
; divorces et rotour a I'application en 
; cours. 



LEA 


Chainel ,A2 


LEA 


TamponCtl+1{A3).A1 


MOVEQ 


#5,D0 


MOVE.B 


(A2)+,(At)+ 


DBRA 


D0,@2 


BSR 


NouveauTexte 


BSR 


Menu2 


ST 


DrapeauMdf(A3) 


BSR 


Inserer 


PEA 


RactVisTaxta 


ValidHect 


SF 


DrapeauCurs(A3) 


MOVE 


#$0324,NbrHexa(A3) 



_lnitCursor 

StatusS 

setPort 

Statu s4 

MOVE.L dCtlWindow(A4),A3 
MOVE RefMenu(A3)J 
dCtlMenu(A4) 

Status3 

MOVEM.L (SP)+,D3-D7/A1-A4 
Status 

MOVEO #0,D0 
RTS 



; FERMETURE DE L 'ACCESSOtRE 
; Suppression do la fondtre, du menu, 
; de I'enregistrement 'TextEdit;.. 
Fermeture 

MOVEM.L A3-A4,-(SP) 

MOVEA.L A1.A4 

MOVEA.L dCtlWindow[A4).A3 

MOVE.L HandlText(A3),-(SP) 
Te Dispose 

MOVE dCtlMenu{A4),-(SP) 

_Del eteMen u 

MOVE.L HandlMenu(A3),-(SP) 

_DisposMenu 

_DrawMenuBar 

MOVE.L A3,-(SP) 

_DisposWindow 

CLR.L dCtlWindow(A4) 

MOVEA.L A4.A1 

MOVEM.L (SP)+,A3-A4 

BRA Status 

; Routine controls. Aiguille 
; I'accessoira en hnclion des 
; messages pass6s par la systeme 

Controls 

MOVEM.L D3-D7W1-A4,-(5P) 

MOVEA.L A1.A4 

MOVEA.L A0.A2 

MOVEA.L dCtiWindow(A4),A3 

MOVE.L A3,-(SP) 
_SetFort 

MOVE CSCodo(A2),D0 

CMPI #accEvent,DO 

BEO.S Evenement 

CMPI #accCursor.DQ 

BEQ Curseur 

CMPI #accMenu,DO 

BEQ Menu 

CMPI #accCut,D0 

BEQ Couper 

CMPI #aceCopy,D0 

BEQ Copier 

CMPI #accPaste.DO 

BEQ Collar 

CMPI #accClear,DO 

BEQ Ef facer 

BRA StatusS 

; Aiguillage des tenements 

Evenement 

MOVEA.L 
MOVE 
CMPI 
BEQ.S 
CMPI 
BEQ 
CMPI 
BEQ 
CMPI 
BEQ 
CMPI 
BEQ 
BRA 




CSParam(A2),A2 

EvtNum(A2),D0 

#m8utDwnEtft,D0 

Contanu 

#kayDwnEvt,DO 

Touche 

#autoKeyEvt.DO 

Touohe 

#UpdatEvt,DO 

MiseJour 

#acttvat@Evt,DQ 

Active 

StatusS 



, On arrive Id en cas de 'dick' dans la 
: fenetre de faeces soke (action sur la 
; zone de texts, le bouton 'Police ... 



; complete', ou encore la petite case 
; daffichage du code ASCII du 
; caract&re silectionne) 

Contenj 

PEA EvtMouse(AZ) 

_GlobalToLocal 

CLR -(SP) 

MOVE.L EvtMouse(A2),-(SP) 

MOVE.L A3,-(SP) 

PEA HandleCtl2(A3) 

_FindControl 

TST (SP)+ 

BEQ.S ®1 

CLR (SP) 

MOVE.L HandleCtl2(A3).-(SP) 

MOVE.L EvtMouse(A2) p -{SP) 

CLR.L -(SP) 

_Traek Control 

TST (SP)+ 

BEQ.S @1 

PEA BectVisTaxte 

_EraseRect 

MOVE.L HandlTexl(A3),-(SP) 
_TEDisposs 
BSR NouveauTexto 
BSR Inserer 
BRA SiatusS 
@1 CLR -(SP) 

MOVE.L EutMouss(A2),-(SP) 

PEA RactVisTaxta 

_PtInRect 

TST (SP)+ 

BNE.S @3 

TST.B CodeCourant(A3) 

BEQ Status3 

CLR -(SPJ 

MOVE.L EvtMouse{A2).-(SP) 

PEA RectCode 

_PtlnRect 

TST (SP)+ 

BEQ Status3 

PEA Rec1Code2 

EraseRect 
BSR PoflceChlcago 
MOVE PositionNH{A3),.(SP) 
MOVE #288,-(SP) 
_Movato 

PEA NbrHexa(A3) 

_DrawString 
_HideCursor 

@4 CLR -(SP) 

_StillDewn 

TST (SP)+ 

BNE.S @4 

PEA RectCode2 

_EraseRact 

BSR AfficheCode 

_ShowCursor 

BFIA Status3 
@3 MOVE.L evtMouse(A2).-(SP) 

BTST SshiflKeyJ 
evtMeta(A2) 
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Mac 128 
Mac 512 
Mac Plus 







SNE 


DO 


MOVE.B 


D0,-(SP) 


MOVE.L 


HandlText(A3).-(SP) 


TECIick 




8SR 


DeReference 


MOVE 


teSelStart(AO),DO 


MOVE 


iaSelEnd(A0),D1 


SUB 


D0,D1 


SUBQ 


#1,D1 


RNF 


@? 


MOVEA.L 


teTextH(A0),A0 


MOVEA.L 


(AO), AO 


MOVE.B 


0(A0,D0),D0 


CMP.B 


CodeCourant(A3J,D0 


BEQ 


Stat-js3 


MOVE.B 


D0,CodeCourant(A3) 


ANDI.L 


#$FF,D0 


LEA 


NombreDeci(A3) r A0 


CLR 


■(SP) 


Pock7 




BSR 


PoliceChicago 


CLR 


-(SP) 


PEA 


NombreDecl(A3) 


_StringWidth 


MOVE 


#38, DO 


SUB 


(SP)+,D0 


LSR 


#1,D0 


ADD 


#351,00 


MOVE 


D0,PoaitionND(A3) 


CLR.L 


DO 


MOVE.B 


CodeCourant(A3),D0 


DIVU 


#16,D0 


BSR 


CodeHexa 


MOVE.B 


D0,NbrHexa+2{A3) 


SWAP 


DO 


BSR 


Code. I ex a 


MOVE.B 


D0.NbrHexa+3(A3) 


CLR 


(SP) 


PEA 


NbrHexa(A3) 


_StringWidth 


MOVE 


#38, DO 


SUB 


(SP)+,D0 


LSR 


#1,D0 


ADD 


#351, DO 


MOVE 


D0,PositionNH(A3) 


PEA 


RectCode2 


EraseRect 


BSR 


AfficheCode 


BRA 


StatusS 


TST.B 


CodsCourarit(A3) 


BEQ 


Status3 


PEA 


ReetCode2 


_EraseRect 


SF 


CodeCourant{A3) 


BRA 


Status3 



; Segment utiliad en cas {faction sur lo 
I clavier. On determine s'il s'agit dvn 
; caract&rd & insurer dans h texts ou 
; d"une commanda (couper, copier ou 
; colter) 

Touchft 

BTST #Q,evtM8ta(A2) 



@2 



@1 









IV l^y V C 


cirt ftjl a c c a n o_l^J/ A ^1 1 


Uc 1 clclil ell U 






Ul tin IVjUll U Dar 


AMDI 


#$DF,D0 


BRA StatUE3 


SUB! 


#S6 DO 




BEQ 


Collsr 


,' Changement de la forme du curseur si 


inn 




; nscessaire (fleche ou curseur type 


BEQ 


Cnu [' y i 


; texte'en forme de 1) 


SUBI 


#SFFFR nn 

IT 1 1 L 1 J , L_> VJ 


Gursaur 

\J LI 1 — - L. 1 


BEQ 


Copisf 


Buffer SET -4 


RRA 




LINK A6 SBuffer 


CMP1.B 


#BS,J 


MOVE.L HandlText(A3),-(SP) 




0VtMSSS3Q s+3 (A2) 


TEldle 


BEQ.S 


@1 


PEA Buffer/ A6l 


BSR 


DBReference 


U (7 U II V Ui d O 


CMPI 


#MaxC,teLang1h(A0) 


1 ii lur J 


BLT.S 


@1 


MOVE L Duffar(A61 -ISP) 


MOVE 


#7.-(SP) 


PEA ReetVisTexta 


_SysBoep 


Ptln Rect 


BRA 


Statu S3 


TST (SP1+ 


MOVE 


evtMes§aga+2{A2),J 


BEQ.S @1 




-(SP) 


TST B DraQeauCurs i AA\ 


MOVE.L 


HandlTaxt(A3).-(SP) 


BNE.S (§>2 


TEKey 




3UBQ.L #4,SP 


BSR 


ValideBouton 


MOVE #iBeamCursor.-(SP) 


BSR 


Efface Code 


_GotCursor 


BRA 


Statu s3 


MOVEA.L (SP}+,A0 



; Routine de m/se a jour 
MiseJour 

MOVE.L A3.-(SP) 

_Beg i n Updale 

PEA RecfTexte 

_FrameR8ct 

PEA RectCode 
FrameReet 

TST.B CodeCoLirant(A3) 

BEQ.S @1 

BSR PoliceChicago 

BSR AffichaCode 
@1 MOVE.L A3,-(SP) 
DrawControls 

PEA ReetVisTexta 

_EraseRecl 

PEA portRact(A3) 

MOVE.L HandlText(A3),-(SP) 

_TEL)pdate 

MOVE.L A3,-(SP) 

_EndUpdata 

BRA Status3 

,■ R$ponsa it ur> message 'Activate' ou 
; 'Deactivate' pour rendre active ou 
• inactive la fenetre de I'accessoire 
Active 

BTST #activeFlagJ 
evtMBut(A2) 
BEQ.S @1 

MOVE.L HandlText(A3),-(SP) 
_TEActlvata 
SF DrapaauCollB(A3) 
MOVE.L HandlMenu(A3),-(SP) 
CLR -(SP) 
_lri3ertMenu 
_DrawMenuBar 
BRA Statu s3 

@1 MOVE.L HandlText(A3),-(SP) 
TEDeactivate 



MOVE.L (AO).-(SP) 
SelCursor 



ST 

BRA.S 
@1 TST.B 

BEQ.S 
SF 

_lnitCursor 

@Z UNLK A6 

BRA Status3 



DrapeauCurs(A3) 
@2 

DrapeauCurs(A3) 

@2 

DrapeauCurs(A3) 



; Traitement dun changement de police 

;(menu 'Pom's') 

Menu 



L1 



MOVE 


CSPararrn-2(A2),D7 


CMP 


Articla(A3),D7 


BEQ 


S!aus3 


SF 


D6 


BRA.S 


L1 


2 




MOVEQ 


#1,D7 


CLR 


ArtiC[e(A3) 


ST 


D6 


SUBQ 


#4,SP 


MOVE 


#watchCursor,-(SP) 


GetCursor 


MOVEA.L 


(SP)+,A2 


MOVE.L 


(A2),-{SP) 


_Setcursor 


BSR 


MenuPoIices 


MOVE 


NPo!i(A3),-(SP) 


TextFont 


MOVE 


D7,.(SP) 


TaxtSize 


PEA 


lnfo(A3) 


GstFontlnfo 


BSR 


DeRef Branca 


MOVE 


NPoli(A3).taFont(A0) 


MOVE 


D7,t8Size(A0) 


MOVE 


lnfo+ascant(A3),D0 


MOVE 


DO.teAseent(AO) 
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ADD 


1 nf o +de scent { A3 ) , DO 


MOVEA.L (AO), AO 


MOVE 


DO.teLineHite(AO) 


MOVE TeScrpLength.DO 


MOVE.L 


HandlText(A3),-{SP) 


ADD tBLengm(A0),D0 


_TeCalT9xt 


MOVE t9SalEnd(A0),D1 


TST.0 


D6 


MOVE teSelSlarl(A0) p D2 


BEQ.S 


@1 


SUB D2,D1 


RTS 




SUB D1.D0 


@1 PEA 


RectVisTesrte 


CMPI #MaxC,D0 


_lnval Ract 


BLT.S @1 


CLR 


-(SP) 


MOVE #7,-(SP) 


_HiliteMemj 


_SysBeep 


SF 


DrapeauCurs(A3) 


BRA Status3 


_lnitCursor 


@1 TST TeScrpLength 


BRA 


Statu 53 


BEQ Status3 

MOVE.L HandlText(A3),-(SP) 


;COUPER 




_TePaste 


Couper 




BSR ValideBouton 


BSR 


VerifSelection 


BRA Status3 


BEQ 


Status3 




MOVE.L 


HandiText(A3),-(SP) 


;EFFACER 


TeCut 




Effacar 


BSR 


TEToScrap 


BSR VBrifSalaction 


BSR 


ValideBouton 


BEQ Statu s3 


BRA 


Statu s3 


MOVE.L HandITBxt(A3).-(SP} 

_TEDelete 


; COPER 




BSR ValideBouton 


Copier 




BRA StatUS3 


BSR 


Verif Selection 




BEQ 


Status3 


; Sous-programme pour vaiiderle 


MOVE.L 


HandlText(A3) t -{SP) 


;bouton 'Police ... complita' 


ToCopy 




ValideBouton 


BSR 


TEToScrap 


TST.B DrapeauMdf(A3) 


BRA 


Status3 


BNE.S ©1 


;COLLER 




MOVE.L HandieCtl(A3),-(SP) 
CLR -(SP) 


Coller 




_HiliteControl 


TST.B 


QrapsauColle(A3) 


ST DrapeauMdf(A3) 


BNE.S 


@2 


@1 RTS 


ST 


DrapeauColle(A3) 




BSR 


TEFromScrap 


; Soys-programme pour invsliderie 


@2 MOVEA.L 


HandlText(A3),A0 


; boutort 




InvalideBouton 

TST.B DrapeauMdf{A3) 
BEQ.S @1 

MOVE.L HandloCll(A3),-(SP) 
MOVE #$FF,-(SP) 
_HiliteControl 
SF DrapeauMdf(A3) 
©1 RTS 

; Passage du texts du presse-papiers 
; 'DoskScrap' au pressa-papiers 
; T extEdif (voir Pom's 24) 

TEFromScrap 

MOVEM.L Au-A1/D0.D2,-(SP) 

SUBQ #4,SP 

MOVE.L teScrpHandla,-(SP) 

MOVE.L #TEXTV{SP) 

PEA scratch8 

_Get Scrap 

MOVE.L (5P)+,D0 

BPL.S @1 

MOVED #0,D0 
@1 MOVE DO.TeScrpLength 

MOVEM.L (SP)+,A0-A1^D0-D£ 

RTS 

; Passage du texte du presse-papiers 
; TextEdit' au presse-papiers 
; 'DeskScrap' (voir Pom's 24) 
TEToScrap 

MOV EM. L A0-A1/D0-D2.-(SP) 

SUBQ #4,SP 

_ZeroScrap 

ADDQ #4,SP 

MOVEA.L teScrpHandle.AO 

SUBQ #4,SP 
GetHandleSize 

MOVE.L DO.-(SP) 

_HLock 

MOVE.L #TEXT'.-(SP) 
MOVE.L (A0},-(SP) 

PutScrap 
MOVEA.L teScrpHandle.AO 
_HUnLock 
MOVE.L (SP)+,D0 
MOVEM.L (SP)+,A0-At/D0-D2 
RTS 

; Efface le code ASCII 

EffaceCode 

TST.B CodeCourant(A3) 
BEQ.S @i 
PEA RoclCode2 
_Era seRect 

SF CodaCourant(A3) 
@1 RTS 

; Sous-programme pour verifier si des 
: caractaras sont selectionne's 
VerifSelection 

BSR.S DeReference 
MOVE taSstStart(AO),DO 
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CMP 

RTS 



teSelEnd(AO),DO 



; 'Dei 6l6rence' le 'Handle' de 
; I'enregistrement TextEdit 1 

□©Reference 

MOVEA.L HandlTcx1(A3),A0 

MOVEA.L (AQ),A0 

RTS 

; Creation (fun nouvei enregistrement 
; TextEdit' 

NouveauTexte 
SUBQ.L 
PEA 
PEA 

JTENew 

MOVE.L 
BSR 
RTS 



#4.SP 

RectDestText 
RectVisTexte 

(SP)+,HandlText{A3) 
EffaceCoda 



; Insertion de la chame do caracteres 
; (ASCI1 16 a 255) 

Inserer 

PEA TamponTx(A3) 
MOVE.L #NbrCaracteres.-(SP) 
MOVE.L HandfText(A3),-(SP) 
_TEInsert 

MOVE.L HandlText(A3),-(SP) 

_TE Activate 

BSR InvalideBouton 

RTS 

; Mse a jour du menu 'Pom's' et 

; cfaangement du texte et du bouton en 

; fonctlon de la police s&ectfonnee 

MenuPgliges 
Buffer SET 

LINK 

TST 

BEO.S 

MOVE.L 

MOVE 

CLR 

_Chaeklt 

@1 MOVE 
MOVEl 
MOVE 
ST 

_Checklt 

MOVE.L 
MOVE 
PEA 

_Getlteiri 
LEA 

LEA 

MOVE.B 
EXT 
SUBQ 
@2 MOVE.B 
DBRA 
LEA 



-100 
A6,#Buffer 
A(1icie(A3) 
@1 

Hand[Menu(A3),-ESP) 
Article(A3),-(SP) 
-(SP) 
em 

D7,Article(A3) 
HandlMenu(A3).-(SP) 
D7,-(SP) 
-(SP) 
em 

HandiMenu(A3),-(SP) 

D7,-(SP) 

Buffer{A6) 

Buffs r{AG),A2 

TamponCtl+8(A3) r A1 

(A2)+,DQ 

DO 

#1,D0 
(A2)+,(A1)+ 
D0,@2 
Chain«2,A2 



MOVEQ #6,D0 
@3 MOVE.B (A2)+,{A1)+ 

DBRA D0,@3 

MOVEQ #16, DO 

ADD.B Buffer(A8),D0 

MOVE.B D0,TamponCti(A3) 

MOVE.L HandeCtl(A3),-(SP) 

PEA TamponCtl(A3) 

_SetCTitle 

PEA Buffer(A6) 

PEA NPoli(A3) 

_GelFNum 

MOVED #18,D7 
@4 BSR.S TaidoValide 

BNE.S @5 

SUBQ #1,D7 

CMPI #5,D7 

BNE.S @4 

MOVE S19.D7 
@6 BSR.S TailleValide 

BNE.S <§>5 

ADDO #1 ,D7 

CMPI #25,D7 

BNE.S @6 

MOVEQ #18,07 
@5 UNLK A6 

RTS 

; Pour determiner si la police 

; sSlsctionnee existe en taills N (D7) 

TailleValide 

SUBQ.L #2,SP 

MOVE NPdi(A3),-(SP} 

MOVE D7,-(SP) 

_RealFonl 

TST (SP)+ 

RTS 

; Atfiche le code ASCII (decimal) du 
; caract&ra selectionna 

AfficbaCoda 

MOVE PositionND(A3),-(SP) 
MOVE #288,-(SP) 
_MoveTo 

PEA NombreDBCi(A3) 

DrawString 
RTS 

; Detimal -> Hexadecimal 



Cods-hex* 




CMPI.B 




BGT 


@1 


ORI.B 


#$30,D0 


RTS 




@1 ADDI.B 


#55,D0 


RTS 





;Pour police Chicago 12points 

PoliceChlcago 

CLR -(SP) 

_TbjuFqiu 

MOVE #12,-<SP) 

_TextS)ze 

RTS 

; Consfantes 

RectFenetre DC 41,4,336,396 



RectTaxte DC 
RectVisTexte DC 
RectDestText DC 
RectBouton DC 
RedCods DC 
RectCodeS DC 



2,2,271,390 

4,4,269,383 

6,6,450,375 

274 I P,?93,348 

274,350,293,390 

275,351.292,389 



Chainel 
Chaine2 
TitreBouton 



DC.B 'Police 1 
DC.B ' complete' 
DC.B 0," 

— <J=^- 



PaintMover et 

MacPIus 

PaintMover necessite plus de 
128Ko pour fonctionner ; aussi, 
si vuus avez reserve 768 Ko de 
cache mcmoire, le programme 
se 'planters', helas sans mes- 
sage... 



Et pourtant, 
il fonctionne ! 



B.-P. Eminet et E. Vernier dans 
un livre consacre au Basic 
Microsoft sur Macintosh, pubiie 
aux Editions McGraw-Hill font 
reference au programme de J.- 
L. Baianegue paru dans Pom's 
16 Cpersonnalisez vos dis- 
quettes Macintosh'), pro- 
gramme qui ne fonctionnerait 
pas... 

Doit-on rapptler iciqoe: 

* ce programme etait congu 
pour le Basic 1.0 ; 

* a I'epoque, le Basic 2.0 n'etait 
pas diffuse ; 

* ('adaptation au Basic 2.0 a ete 
publiee dans le numero 17 ; 

■ meme ainsi adapte, ce pro- 
gramme a toutes les chances 
de ne pas fonctionner avec 
une hypothetique version 4.12 
ou 6.0 de ce meme Basic. 

Moralite, quand on ne sait pas. . . 
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Nous vous presentons ici un 
sons-programme a variables 
locales, done 'transparent 1 qui 
vous permettra d 'initialiser, 
afficher el gerer un ascenseur. 
Comme il est inutile de presenter 
cette element important de 
T'intcrfacc utilisateur', nous 
passeront immediatement a la 
methode d'utilisation du 
sous-programme, baptise "GF'. 

Le sous-programme "GF", tel 
qu'il est presente ici, est 
csscntiellement destine a gerer 
Line fenetre de texte. Le 
programme de demonstration met 
ceci en evidence en affichant des 
lignes de texte avec differentes 
polices et en differentes tailles, 
les deplacements verticaux de ees 
ligncs suite aux actions sur 
1 'ascenseur efant proportionnels 
aux caracteres utilises. Vous 
pourrez toutefois utiliser "GF" 
pour autre chose que du texte en 
rempla§ant la routine 'Afficher' 
par la routine de voire choix. 

Arguments 
d'appel de GF 

II s'a^it dune valeur permetiaM 
d'indiquer au sous-programme la 
tache a accomplir, ceci en 
fonction des message passes par 
le system e (ON DIAL(Ki) : 

1 - Initialisation. Prise en 
compte des parametres et de la 
taille de la fenetre. Cet appel 
est necessaire chaque fois que 
les parametres ou que la taille 
de la fenetre a gerer sont 
modifies, 

2 - Rafraiehissement de la 
fenfitre. 

3 - Defilement de la fenetre 
sur evenement souris. 

Parametres 
d'initialisation 
(pour argument = 1) 

GFlim : numero de la derniere 



ligne affichable. (La numero- 
tation des lignes commence a 
0). Une valeur negative 
indique qu'il ny a rien a 
afficher. 

GFtront : police de caracteres. 

Chicago par defaut. 
GFtsiz : taille des caracteres. 12 

par defaut. 
GFtface : style des caracteres. 

Standard par defaut. 
GFtitre$ : Titre. Pas de titre par 

defaut 

GFpas : nombre de lignes (>0) 
en recouvrement lors de 
I'affichage d'ecraus successifs. 
Generalement ou I. par 
defaut. 

GFxl, GFyl, GFx2, 
GFy2 : coordonnees (coin 
superieur gauche, coin 
inferieur droit) de la 
sous-fenetre geree par GF. Les 
informations affichees a 
rexterieur de cette sous-fenStre 
ne sont pas affectees par le 
defilement. 

Les valcurs incorrectes 
sont automatiquement rame- 
nees aux valeurs par defaut, 
soit : 0, 18, largeur de la 
fen£tre-16\ hauteur - de la 
fenetre. 

Variable disponiblc apres 
chaque appel a GF sur 
evenement souris 
(argument - 3) 

GFmouse : si 1 evenement a 
ete pris en compte par GF, -1 
si l'evenemcnt nc conceme pas 
GF et peut £tre traite par le 
programme appelant, 

Suus-prugrainnie utilisateur 
appele par GF : 
Afficher(x,y) 

L'appel de ce sous -pro gramme 
correspond au traitcment dune 
action sur 1'ascenseur, II pourrait 
etre remplace par un autre 
sous-programme pour, par 
exemple, faire defiler du 
graphisme. 



x : numero de la premiere ligne a 

afficher (commence a 0). 
y : nombre de lignes a afficher (le 
curseur est positionne par GF) 

Remarques : la fenetre a gerer 
doit etre active et etre la fenetre 
courante d'affichage. tile doit 
etre ouverie avant l'appel 
d'initialisation . 

Enfin, pour que la presentation 
soit plus agreable, utilisez plutot 
les types 3 ou 4. Un bouton 
invisible (1ST 255) est declare par 
GF afin d'inhiber le mode 
"scrolling" automatique. 

Toutes les variables de GF sont 
de type entier implicite (DEFINT 

a-z). 

Si les cvcncmcnts souris sont 
traites de fagon asynchTone (ON 
MOUSE...) et non par "polling" 
(IF MOUSE(0)oO...), ils 
doivent £tre inhibes (MOUSE 
STOP) pendant un rafraiehis- 
sement puis autorises a nouveau 
(MOUSE ON) Iorsque celui-ci est 
termine. 

Ceci evite le risque d'appeler GF 
sur evenement souris alors qu'il 
est en train d'effectuer un 
rafraiehissement. 

Au retour de GF 3 le programme 
peut examiner la variable 
GFmouse pour savoir si 
l'evenement a ete traite par GF 
(GFmouse=0) ou si l'utilisateur 
n'avait pas clique dans la bande 
de defilement (GFmouse=-l). 

Dans ce dernier cas, le 
programme appelant peut traiter 
lui-meme l'evenemcnt. Les 
DATA de GF sont lues une fois 
pour toutes lors du premier appel 
d'initialisation. 

Si le programme appelant a 
lui-meme des DATA a lire, il 
devra les placer avant ou apres 
celles de GF selon queries seront 
lues avant ou apres le premier 
appel a GF(1). 



(J 
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Demonstration du 

sous-programme 

'GF 

Note : pour un Mac 128Ko, 
piacez en debut de programme : 
CLEAR r 11000,1024 

DEFINT R-Z 

WINDOW 1,, (2, 23) -(508, 33,0) , 
3 

' Fonctions apprises par GF 
DEF FNmin (x.y) -xOy AND x 

R y<x AND y 
DEF FNmax{x,y)=x>=y AND x 

R y>x AND y 
GFLim=100 
GFtfont-3 

GFtitre$="Exemple d'utilisat 

ion" 

GFy2=WINDOW(3) -10 

GF 1: 'Initialisation 

TEXTMODE 1 rMENU 6, 0,1, "Car 
aoteres" :MEHD 6 , 1 , 1 , " Chica 
go": MENU 6, 2,1, "New York": 
MEND 6,3,2, "Geneva" : MEND 
6, 4,1, "Monaco": MEND 7,0,1, 
"Style" :KEND 7 , 1 , 2 , "Stands 
rd" rMENU 7,2,1, "Gras " : MEN 
U 7,3,1, "Italiquc" 

MENU 7,4,1," Souligne " : MENU 
7, 5, 1, "Relief " -.MENU 7,6,1, 
"Ombre" :MENU 7, 7, 0, "-" :ME 
ND 7, 8,1, "9 Points" :MENO 
7, 9,1, "10 Points" :MEND 7,1 
0,2, "12 Points": ON MOUSE 
GOSUB EvtSou: MOUSE ON 

Attente : 
WHILE 1 

IF DIALOG CO) =5 THEN GOSUB 

Ma jFen 
GOSUB EvtMsn 
WEND 

Ma jFen : 

MOUSE STOP : TEXTSIZE 9- : TEX 
TFONT 3 : TEXTFACE : MOVE 
TO WINDOW (2) -160, GFy2t5:P 
RINT"GF VI. 8 © Bernard BA 
S, 1966" 

GF 2: 'Rafralchisaement 
MOUSE ON: RETURN 
tvtSou : 

GF 3: 'Gestion sauris 
IF GFmouse THEN BEES 
RETURN 

EvtMen : 

W=MEND(0):IF w>0 THEN MENU 



w, 0,1: ON w-5 GOSUB Car, S 

IF aff THEN aff-0:GF 1 : CLS : 

GOSUB Ma jFen 
RETURN 
Car: 

IF MENU ( 1 ) - 1 THEN w-0 ELSE 

w=MENU(l) 
IF wOGFtf ont THEN si-1 
WHILE si:si-0 

MENU 6 , FNmax (GFt font , 1) , 1 :M 
ENU 6,MENU(1) , 2:GFtfont-w 
: af f-1 

WEND: RETURN 

Style: 

IF MEHU(l) >7 THEN GOSUB T 

aille: RETURN 
IF MENU(1)=1 AND GFtface>0 

THEN si-1 
WHILE si:si=0 

FOR i-2 TO 6: MENU 7 , i , 1 : NE 
XT: MENU 7 , 1 , 2 : GFtf ace-0 : a 
ff=l 

WEND: IF MENU{1)>1 THEN si= 
1 

WHILE si:si=0 

w-GFt face XOR 2 A (MENU (1) -2) 
: MENU 7 ,MENU (1) , 1- (w>GFtf 
acc| :CFtfacc-w: IF GFtfacc- 
THEN MENU 7,1,2 ELSE M 
ENU 7,1,1 

aff=l 

WEND: RETURN 

Taille: 

IF MENU (1) <10 THEN w=MENU ( 

1)+1 ELSE w=12 
IF HO GFtsiz THEN si-1 
WHILE si: si=C:FOR i=8 TO 1 

0:MENU 7, i, 1 : NEXT: MENU 7 

, MENU ( 1 ) , 2:GFtsiz-w:aff-l : 

WEND : RETURN 

SUB Aff icher (li, nil) STATIC 

FOR i-0 TO nli-l:PRINT"Lign 

e",-li + i:NEXT 
END SUB 

'GF VI , 8 © Bernard BAZ, 1936 
SUB GF (w) STATIC 
ON w GOSUB GFinit.GFma j, GF3 

EXIT SUB 

GFinit : 

WHILE NOT init : init--l 
SHARED GFliiri, GFtf ont, GFtsiz 
, GFt face, GFt it re $ , GFpas, GF 
xl , GFx2 , GFyl , GFy2 , GFmouse 
DIM fls (18) , fli (18) , flsft<18) 

,flin(13) ,t>de(4} ,asr{4) ,gr 
is (4) , Lin<4) 
FOR 1 = 1 TO 1S:READ fls (i) :N 
EXT 

fli(l)-16:fli(2)=16:FOR i=3 
TO 1 8 : f li (i) =f Is {21-i ) :NE 
XT 

FOR i=l TO 14:READ flsn(i): 
NEXT 



flio (1) -16:f lin (2) -16: FOR i = 
3 TO 18:flin (i)-flsn (21-i) 
: NEXT 

FOR 1=1 TO 4:gris (i)-4hll44 

:lin (i) =255:NEXT 
BDTTON 2i3, U, "", (0, 0) - (0, 0) 
WEND 

If en=W!NDOW (2) : nten=WINDOW 
(3) 

xfl=lfen-15:yfli=hfen-15 
bde (l)=33:bde(2) -lf«m-14 :bde 

(3)=hfen-l5:bde(4) -Ifen 
asr (1) =33: asr (2) =lf»n-14 :asr 

(3)-49:asr(4)-lfen 
TEXTFONT 0: TEXTSIZE 12 
tit$=GFtitre5 

WHILE WIDTH ( t i t S ) > 1 f «n-1 3 :t 
it$=LEFT$ ( L i L $ , LEN ( L i L 5 ) — 
1) : WEND 

xtit-(lfen-l-WIDTH(tit$) ) /2 
:tsiz=GFtsiz OR 12 AND GF 
tsiz=0 : lim=GFlim: lil-0 

TEXTFONT GFtf ont : TEXTSIZE 
t si z : TEXTFACE GFtface:LO 
CATS 1, 1 :xli=WINDOW(4) :yl 
i=WINDOW(5) : LOCATE 2, 1 :h 
li-WINDOW (5) -yli 

IF GFxKO OR GFxl>=lfen-16 
THEN GFxl-0 

IF 3Fx2<-GFxl OR GFx2>lfen-l 
6 THEN GFx2-lf«n-l 6 

IF GFyKl 8 OR GFy l>hf on-hli 
THEN GFyl=18 

IF GFy2<GFyl+hli OR GFy2>hfe 

n-1 THEN GFy2-hfen-l 
xli-GFxl+xli :yli-GFyl+yl i : li 
pg-FNmaxU, (GFy2-GFyl+l) \h 

li) : pas— FNmin (FNmax ( , GFpa 

s} , lipg-1) :lilm-FNmax(0,li 

m-lipg+1) :xlrol-GFxl :x2rol 

-GFx2 :ylrol-GFyl:y2rol-ylr 
ol+hli* lipg-1 : RETURN 

GFma j : 

TEXTFONT 0: TEXTSIZE 1 2 : TE 
XTFACE : PENPAT VARPTR { 
lin{l) ) :PZNSIZZ 1,12:M0V 
ETO 1 , 2 :LINET0 xtit-6, 2:M 
OVZ 7 , 11 :PRINT titS; :M0V 

E 6,-11: LINE TO lfert-2,2; 

PENNORMAL 

LINE ( , 17) -{lfen, 17) :LINE(x 
fl,17) -(xfl,hfen) :PUT (xfl 
, 17) , fla (1) ,P3ET:PUT(xfl, 
yfli) .fli (1) ,PSET:IF lim> 
-lipg THEN ai=l 

WHILE si : si=0 : FILLRECT VA 
RPTR(bdeU) ) , VARPTR (gria ( 
1 ) ) : ERASERECT VARPTR (asr 
(1) ) : FRAME RE CT VARPTR (as 
r (1) i : WEND 

TEXTFONT GFtf ont : TEXTSIZE 
t s i z : TEXTFACE GFt face: MO 
VETO xli,yli:IF lim>-0 TH 
EN Aff icher lil, FNmin dim, 
lipg-1) + 1 

RETURN 
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GFsou; 

u-MOOSE (0) :si=MOOSE (3) >-xfl 
AND M003E (4 } >-17 : GFmouae 

=NOT si 
WHILE si AND lim>=lipg : si=Q 
zon-1- (MOUSE (4) >32) - (MOOSE ( 

4) >=asx (1) ) - (MOUSE (4) >=as 

r (3) } - (MOOSE (4}>=yf li) 
ON 20ii GOSOB ZujiI , Son2 , Zon3 

, Zon4, Zon5 

WEHD 
RETURN 

2onl: 

P0T(xfl,17),flsn(lJ :act=l 

WHILE act: IF iil>0 THEN li 

l=lil-l;GOSUB aff 
aet-MODSE (0) <0 AND MOUSE ( £ 

}<=32 
WEND 

PDT tXtif l?) , flsn (1) : RETURN 
Zon2 : 

mou=MOUSE (<J) :act-l 

WHILE act : IF lil>0 THEN li 

l=FNmax (lil-lipg+pas , 0) :GO 

SUB aff 
act-MOUSE (0) <0 AND MOUSE ( 4 

)=mou AND MOOSE (6) <asr (1) 
WEND : RETURN 
Zon3 : 

PENPAT VARPTR (gris (1) ) : PEN 
MODE 1 4 : FRAMERECT VARPT 

R(asr (1) ) :yl=asr (1J :act=l : 
si-1 

WHILE MOUSE (Q)<0 OR 


y2-FNmax (FNmin {yl+MOOSE (6) - 
MOOSE (4) . hfen-31) ,33) 

IF fZOMX (1) AND act; THEN 
si=l ELSE asr(l)=y2: asr(3 



) -y2+l 6 

WHILE si :ai-0: FRAMERECT VA 
RPTR(asr (1)) :aar(l) -y2 : as 
r (3] =y2 + 16: FRAMERECT VAR 
PIR(asr (1) ) 

WEND 

IF ABS (If en- 9 MOUSE(5))>30 
AND act THEN a ct=0 : FRAM 
ERECT VARPTR (asr (1) ) 

IF ABS (If en-8-MOOSE (5) ) <=3 
AND act-0 THEN act=l:FR 
AMERECT VARPTR (asr(l) ) 

WEND 

lilw-(y2-33) *Iilm/ (hfen-64) : 
IF act THEN ai-l ELSE am 
(l}=yl :asr (3)=yl+l« 

WHILE si:si=0£W=yl<>y2 AND 
lilwOlil OR yl=33 AND li 
1>0 OR yl-hfen-31 AND lil 
<liim:IF w THEN lil-lilw: 
PENNORMAL: COSDB aff ELS 
E FRAMERECT VARPTR (as r( 
1) ) 

WEND : PENNORMAL : RETURN 

Zon4 : 

mou-MOUSE ( 4 ) : act=l 
WHILE act: IF liKlilm THEN 
lil^FNmin (lil+lipg-pas, li 

Ira) :GOSUB aff 
act=MOUSE (0) <0 AND MOUSE (4 

} -moil AND MOOSE ( 6) >-a sr(3 

) 

WEND : RETURN 

SonS ; 

P0T(xfl,yfli),flinU) :act=l 
WHILE act ; IF LlKlilm THEN 

lil=lil+l:G0SOB aff 
,act=MOUSE(0)<0 AND MOUSE (6 
) >-yf li 




WEND 

PUT (xfl,yfli) , flin (1) rRETUR 
N 

aff r 

asr(l)-(hfer»-64) *lil/lilml 33 
:asr (3) =asr (1) +16 :FILLREC 
T VARP TR (bde ( 1 ) ) , VARPTR ( 
gris (1) } :ERASERECT VARPT 
H(asr(l|) : FRAMERECT VARP 

TRfasr (1) ) :ON zon GOSUB A 

ff 1, Aff 2, Af f2,Aff2,Aff5:RE 
TURN 
Aff 1 : 

SCROLL (xlrol, ylrol) - (x2rol , 
y2rol) , 0,hli:MOVETO xli,y 
li:Af richer lil, 1 : RETURN 

Aff2: 

LINE (xlrol, ylrol) - (x2rol r y2r 
ol) ,30, bf :MOVETO xli,yli: 
Aff icher lil, 1 ipg : RETURN 

Aff 5 s 

SCROLL (xlrol, ylrol) - (x2rol, 
y2ml ) , 0, -hi i :M0VET0 xli, 
yli+lili* (lipg-1) ; Afficher 
lil+lipg-1, 1 :RETORN 

DATA 16,16,-l,sh80Ql,4h8101, 
Sh6281, Sh84 41, ShS821, Sh901 
1, ShA009, &hF83D, Sh8821 , Sh9 
821,Sh8821,ih8FEl, &h6Q01,fc 
heOOl, 1,16, 16, 0,0,0, ShlQO 
, ih380, ih7C0, ShFEO, ShlFFO, 
Gh7C0, Sh7C0, Sh7C0, Sh7C0 

END SOB 



Compatible incompatible ? 
Suite... 

(premiere part'w dans k namcro 24 ) 
ParikuJarismes 

Nous ik pouvons, faute de place, citer les 
pariicularisrnes de tous les logiriels sur le 
MacPIus, en dehors de leur appartenance 
aux cinq categories dfcrites dans le num&o 
24. C'est pourquoi nous citons settlement 
dans la liste ciicssous les particularisms 
des bgicids les plus connus. ftiur les 
iogiciels listcs dans Pom's 24, quand un 
numcro dc version est indiquS, cela signifie 
en general que les versions ant&ieures 
poscnt encore plus de problemes, ou ne 
marcbentpas du tout, avec le MacPhis. 

Basic 2.0 : selon Apple, il apparticru a la 
categorie 1 ; selon nous, a la categoric 3, le 
Basic ct les fichiers devant Strc au niveau 
dc la hierarchic, 

Jazz : ne pas metre a jour la disquette 
originale ; constituer une nouvelle disquette 
dc demarrage en fSQOKo avec le systems 
MacPIus ; y transferer les fichiers Convert, 
Jazz Ressowces, Jazz System Update de la 
disquette dc demarmge originale : le fichier 



Jazz Ressources doit elre dans le dossier 

MaeDraft : leconnai en panie le HFS, 
mak ne sail pas sauvegarder un document 
dans un dossier {le met au niveau 0). On 
petit utiliser uoe disquette BOOKo k candi- 
lion de la format en MFS. 
MacTerminal 1.0 : mise ^jow de la dis- 
quette possible, ^ condition de gardcr l'an- 
cien clavier. La version 2.0 devrait are dis- 
ponibleenmaiB6, 

MacTracks : les fichiers auxiliaires doivent 

are dans le dossier systeme. 

Microsoft File : probfemes de dossiers avec 

les index U est done preferable dc travaillcr 

au niveau Ode la hier archie. 

Multiplan ; la version 1.10, sortie reeem- 

i] .CEjt et fcliangeablc pour 250 F ^tpres. de 

Microsoft, est compatible tous Macs, rfisout 

le probftme de la versbn 1.02 avec le 

MacPIus {limits a 7K !) et ajoute les 

fonctions financibes. 

Omnfc3 : l^gas probfenes avec le HFS ; 
les ftchkr auxiliaues doivent £tie dans le 
dossier systtaae (OrnnisS Info), 
Orthogieiel : nouvelk version atlendue en 
juin 86. 



Ovenue 2.0 : selon Apple, apparent St la 
categorie 1 . &i fait, ne touroe qu'avec son 
aneieu systbue. 

PitgeMaker 1.1 : legers problems avec le 
HFS. Les fichiers doivent etre dans le 
irtine dussier que 1'applieaiicsL En cas 
d'utMisatkM avec la LaserWriter, 
Pirrtprimante doit absolument fere baptisfe 
"LaserWritei". 

Smooth 1 alker 10 : aucun probl&re selon 
Apple (cjitfegorie 1). &kin nouji, pi ante 
complctcmcnt la machine. 

Switcher 4.4 : ks applications d'unc liassc 
doivent etre a la racirte. Refuse le Finder. 
Conflits avec le c^he-rnernoire, qui doit 
done etre desactivei Version 4.9 entieie- 
ment compatible attendue. 
ThlnkTank : problemes avec le cache- 
m&moire. L'impression peut poser des 
ptoblbnes al6atQircs non rcsolus. 
Word LQ2 : ne teconnat pas le pave 
numerique, rnais accepte les chiflres du 
clavier principaL Nouvelle version inces- 
samment. Le glossairedoitene dans le dos- 
sierder^plicaiion. 

HervS Thirlet 
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flStDCES 



Jean Damienes 
Alain Gidllard 
PaiileJatk 
Philippe Meslin 
Herve Thiriez 

Des cssais rapides 

Lors de la inise au point d'un 
programme en assembleur, le passage 
par le Tinder*, au retour, fait perdre du 
temps. Pour eViter cette e'tape, on pent 
insurer ce petit segment de code a la 
place du classique RTS de fin de 
programme : 

LEA Param, AO 

LEA Proqram, Al 

MOVE.L Al, (AO) 

_Launch ; $A9F2 

Param DC.L 

DC 

Program DC.B 4, 'Edit ' , 
Ceei provoque le lancementde l'ecliieur. 

Un caractere retrouve 

Si vous etes passe" du Mac au MacPIus, 
vous avez certainement perdu le 
caractere que 1'on obtenait avec la 
sequence de louche : 
Option ' E 

Sur le Mac Plus, il faut faire : 
Option 1 E 

Qui a retrouve" la puce "•" ? 

W.D-L R- : le 'Mega-truc' en la 
matiere, c'est laccessoire "ad liiieram" 
publie dans ce numero (dommage pour 
I'accessoire "clavier" , qui a quasiment 
dlsparu des disquettes de tous ceux qui 
ontessaye "ad liiieram" '). 



Clavier, clavier Plus ? 

Si vous ecrivez une application qui doit 
pouvoir fonctionner indiffe'remnient sur 
un Mac ou sur un Mac Plus, il peut 
etrc int&essant dc savoir a quel type de 
clavier on a affaire. Pour cela, on peut 
lire le contenu de Tadresse S21E, qui est 
egal a 1 1 en cas de presence d'un clavier 
"Mac Plus". En Basic : 

IF EEEK(ih2lE) =11 THEN 
MacPIus ELSE Mac 

En assembleur : 

CMPI.B #11,$21E 

BEQ MacPIus 

Mac ... — 



Le collage dans Excel 

Nous avons deja constate piusieurs 
bugs dans Excel; aucun d'entre eux n est 
grave, mais ils soul quelque peu 
dnervants. Un des plus originaux touche 
le Collage Special, qui - tres 
intelUgemraent - permet de copier 
seulement les vaieurs, les formules ou 
les formats mats, moms 
intelligemment, ne fait pas la 
distinction enrre les formats er les 
encadrements. 

Le bug est le suivant. Quand ou copie 
le vecteur : 



25 25 25 25 



pour effectner un collage spfcial des 
vaieurs seules et avec soustraction vers 
le vecteur : 



17 







311 


on obtient le resultat : 


-8 


-25 


25 


5 



ou la iroisieme valeur est erronee, car la 
Cellule r&sipiendaire gtait vide, 

Le seul remede qua nous pouvons vous 
conseiller est de mettre des au lieu de 
blancs dans les cellules appeldcs a 
recevoir des informations par collage 
special associe" a une operation. 



Touches speciales 
Mac Plus 

Le Mac Flus est arrive avec quelques 
touches en Plus par rapport au 
Macintosh (sans parler des touches 
'doublets' du pave" nume'rique). On 
notera que ks touches communes aux 
deux appareils ont fort heureuseraent 
garde 1 les m£mes codes ASCII. Voici 
ces codes :^ 

Mac Plus 



28 

□ 

31 



29 



30 i 



DO 



27 



Mac/Mat Plus 



13 



ROM 64Ko ou 128Ko ? 

Le Macintosh Plus ne sera bientot plus 
seul a disposer d'une ROM dc 128Ko. 
En effet, le Macintosh 512/ROO arrive... 
avec 128Ku de ROM. Les programmes 
qui aiment savoir oil ils sont peuvent 
tester le contenu du mot de 16 bits situe 
a I'adresse S28E, qui est £gal 3 S7FFF 
(32767) si Ton est en presence d'une 
ROM de 123Ko. 

Exetuple ; 

If PEEK(sh28E) *256+ 
PEEK (4h28F) =32767 THEN 
ROM128 ELSE ROM 6 4 



Avez- vous la disquette Mac 25 ? 



Au sommaire : u Finder, Ad Irtteram, les ascenseurs 
en Basic, System© version 3.2c et Finder 5.3 



Francophonisme... Suite, 

Suite a la question metaphysique posee dans le numero 24 - rappelans qu'il s'agissaii de trouver un exemple de text? 
fran^ais compurtant tout {'alphabet en une phrase aussi courte que possible - Georges Boyer, un lecteur d'Annecy nous 

propose : "Poticz cc bol de vieux whisky auxjuges qui fitment" 
H nous suggere de le traduire pour les americains par "Bring this cup of old whisky.,," Ijes habitues des connexions 
Trarispac connaissent certainement le : "Voyez fe brick giant que f 'examine pres du wharf. 
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Gagner 56 Ko ? : 

Jean-Luc Bazanegue 



JJ.FINDER 



Le Finder du Macintosh est une application 
sophistiquee qui autorise une gestion complete des 
fkhiers plates sur nos disquetr.es. A 1'usage, on 
s'apercoit que la plupart des fonctions sont rarement 
utilisees lorsqu'on emploie, par example, des 
utilitaires (PaintMover, REdit. . . ). De plus, 1c passage 
par le Finder prend du temps et, dans le cas de 
programme reclamant beaucoup de place sur la 
disquette (comme MacPaint), il peut etxe interessant 
de recuperet la plate qu'il occupe. 

Nous vous proposons done un "micro-Finder", qui 
ne conserve que les fonctions essentielles de son 
grand frere (selection d'une application et 
ejection/redemarrage). On utilise pour cela la fenetre 
de selection du systeme (dont l'aspect peut varier d'un 
systeme a l'autre), ce qui nous permet de gagner 
56Ko sur chaque disquette et, du mcmc coup, 
beaucoup de temps lors du passage d'une application 
a I'autre. 



G 



Fichier 
'{iFinder Job' 

Asm jiFindef.Asm Ekoc Edit 
Link jiFindaf.Lirik Exoc Edit 
RMakor jiTiedd'.R Fitder Edit 

Fichier 
'fj.Finder.Link' 

I 

(iFi rider 

/Output iiFindHr.Code 

/Type TEMK 

$ 



Fichier 
'fiFinder.R' 

^Finder 
APPI41FND 
Typp jiFND = STR 
,0 

[iFinder - Pom's - Juirt m 
Typs BNDL 

,128(32) 

jiFND 

ICN# 

128 

FREF 

128 
Type FflEF 

,128(32) 

APPL 
Type ICN# = GNFlL 

,128(32) 

2 

00000000 oooooooo 
oooooooo oooooooo 
oooooooo oooooooo 

OOOOOOOO QQQUOUUU 

oooooooo oooooooo 
oooooooo oooooooo 

OOOOOOOO 07FFFFEO 

08000010 08FFFF10 

OOOOOOOO 09024090 

091E7690 09366G90 

Q95E7A9C OSOCSUHU 

09000090 06FFFF1 



08000010 
0B2FF410 
06000010 
04000020 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OFFFFFFO 
OFFFFFFO 
OFFFFFFO 
OFFFfFFC 
OFFFFFFO 

OFFFFFFO 
OFFFFFFO 
O7FFFFE0 
INCLUDE nF 



08100810 
08000010 
07FFFFEO 
07FFFFEO 

OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
OOOOOOOO 
07FFFFEO 
OFFFFFFO 
OFFFFFFO 
OFFFFFFO 
OFFFFFFO 
OFFFFFFO 
OH-l-hH-0 
OFFFFFFO 
07FFFFE0 
07FFFFEO 
inder.Code 



Source 
'^iFinder.Asm' 



.Trap 


_Ejeel 


?A017 


.Trap 


_riuih Lvenls 


SA032 


.Trap 


^GetCuraor 


JA9B9 


.Trap 


JrnlCureor 


$AB50 


.Trap 


J nil Dialogs 


SA97B 


.Trap 


-inilFoms 


IA8FE 




jnrlQrSI 


SA86t 


.Trap 


JnhMenus 


JA930 


.Trap 


_lmlWindows 


$A912 


.Trap 


_l_aunch 


$A9F2 


.Trap 


_Pack3 


SA9EA 


.Tiap 


_S8tCursor 


JA851 


.Trap 


_SetHandbSisa 


$Anf»4 


.Trap 




JA015 


Trap 


TElnS 


SA9CC 



, E rjujvHfe/KTSs' ; 



rGood 


EQU 





rvolume 


fcCJJ 


6 


r^ama 


ECU 


10 


SFGatFila 


EQU 


2 


bNamsPtr 


EQU 


$12 


ioVDrvNum 


EQU 


$16 


AppParmHandle 


EQU 


$AEC 


waich Cursor 


EQU 


4 



=□= Disquette auec Finder 



5 elements 347K dans disque 44K disponibles 




IMAGEWRITER SYSTEM 



FINDER 



Disquette auec uFinder 



5 elements 291 K dans disque 100K dispefiibk <^ 




IMAGEWRITER SYSTEM 



Finder 





ioVdESizs 



EQU $40 



; mtuatsaHans : 

PEA -4(A.5) 

_mtt6r«i 
jnilFontt 

MOVE.L *fOO0OFFFF,DO 
^Fluth Events 
JnHWindow* 
JnitMenu* 
CLR.L -(SP) 

InltDlalo o» 
_TEIni( 

[nlLCurtor 

; ster retard 

MOVE *B0,-(5P) 

MOVE (3P),-(SP) 

CLR.L -(SP) 

CLR.L -(SP) 

MOVE m.-(SP) 

PtA type 

CLR.L -(SP) 

PEA reponse(A5) 

MOVE #SFGelFto,-(SP) 

_Pick3 

, Curs&uf prt forme da ' Uz 

MOVE #watehCursor,-(SP) 

MOVEA.L (SP)tA£ 

MOVE.L (A2),-(Sr) 
SelC u f a &r 
,' Prepare le lampon 
. tf&nirSes/soriies 

LEA IO.AO 

CLR.L k)NameRr(AO) 



TST 
BNE.S 



RopDnsG+rGaod(A£) 



#-2,toVDrvNiim(A0) 



; 51 on OWnancte 'AnnuleT, las 
," tStsqueltes sant &jaet&es et wi 
, radimane /s systeme 

MOVE #-1,ioV0rvNu(n(A0) 

_Eject 

MOVE 

-Eject 

MP J4O000A 

; FepptiCGiier* 941ectref}r}6e comma 
, r Manila vafama par d6favt 
@1 r^lOve Rspunaen-iVoloir«i(A5), 
iuVDrvNum(AO) 
_3elVol 

; Pour mtiquer i Fappftation 

; sHecHonn6e qu'ti n'y a rien a ouvrir ou 

; impwner (voir pom's 24) 

MOVEO.L m.oo 

MOVE.L AppParmHandla.AO 

_SetHindle£r» 

MOVE.L AppParmHandla.AO 

MOVE.L (AO).AO 

CLR.L (AO) 

. Lanes rappicatfon oemamMe 

MOVE *0,-(SP) 

PEA reponse^rNam6(AS) 

MOVE.L SP.A0 

_L*unch 
; Tampons «' constant&s 
type DOB APPL 

IO DC.B teVQBSra.O 

Reponss DS.B 4E 



Comment faire ? 

vous avez la disquette Mac25 : 

" dfaiatrez le sysli^me avec b disquette Mac 25 ; 

• ins&tii k disquelle sur laquelle vouii d&irei placer le fiFmder ; 

• supprimezle vrai Finder; 

• faites une ropie du j.LFinder sur la dkqueOe destination ; 

• supprimezle "|J.' dcjiFbdcr. 

VfiiLS n'ave?. pas la dLsquette Mae25: 

• munissez-vous de votre systeme de developperocot 68000 ; 

• saisisscz les fichicrsetle source lisles ci-contic ; 

• lancer 1' EXECution du fichier 'jiFinderJob ' ; 

• faites alors comme si vous aviez la disquette 25. 
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Tri, Chaines, Index 



Bernard 
Lambillon 



Beaucoup de programmes 
Basic neeessitent des 
operations de tri sur les 
elements d'un tableau. 
Le plus souvent, il s'agit de 
tableaux de chaines de caracteres. 
Un tableau a deux indices peut 
memoriser les adresses de clients, 
le premier indice repere la 
position de l'adresse du client 
dans le tableau, le deuxieme 
permet d'acceder aux differentes 
rubriques de son adiesse. Si le tri 
sur la rubrtque 'nom' est 
effectue, il va de soi que les 
autres rubriques associees a un 
nom doivent suivre les 
deplacements imposes par la 
technique de tri choisie. Cette 
methode implique une perte de 
temps importante du fait que tous 
les elements du tableau participent 
a 1'operation de tri. Pour eviter ce 
grand "chambardement", on 
decide de ne plus modifier le 
tableau. L'ordre des elements du 
tableau de chaines est enregistre 
dans une tableau de nombres, 
appele table d "index, L'accSs a la 
liste triee se fait alors via celte 
table d'index. Considerons un tri 
sur le nom des pays du tableau 
PAY$. 



r 




Tableau PAY$ 


Si 


















F5t iptis.tn 


i = 









^ 


i * 


i 


Jialic 


Romt 


r 7 


i * 


2 


S-flSS 


L> H.jc 


JC 3 


i * 


3 




Bnutllei 


B 5 


i = 


i 


France 


P»ri» 


F 4 


i > 


5 


Dtnemirii 




DK s 


j . 


ti 


Lutembeurg 


Luxembourg 


L 9 


! - 


/ 


Allemagae 


Bona 


D ID 


I • 


B 


: GffMdt-Bretsgnc L-ondjea 


GB 1 


] = 




Grtoe 


Athene* 


G 6 


[ . 


10 


trUodt 


Dublin 


mi. z 


1 











11 suffit alors de lire la table 
d'index P% pour obtenir la liste 
des pays classes par ordre 
alphabetique : 

FOR 1-2 TO N 
J - Pi II) 

PRINT PAY$(J f 0)f TA3 ( 20); 
PAYSU,1); TAB 1 34);PAZ$(J,Z) 
NEXT I 



Tri par insertion 

Cette technique de tri peut se 
comparer avec l'insertion des 
cartes lors dune donne. Des la 
deuxieme carte, le joueur insere la 
carte donnee en la comparant a la 
(aux) precedente(s). Tant que la 
carte donnee est inferieure a la 
carte comparee, les carles sont 
decalees vers la droite et la 
comparaison se poursuit vers la 
gauche. Des que la carte donnee 
est superieure ou egale a la carte 
comparee, la carte donnee est 
inseree £ droite de la carte 
compared. Le programme 
TRI. CHA1NE. DEMO illustre ce 
type de tri. 

Le tri par insertion est assez 
performant (au niveau de la 
rapidite) compte tenu du peu 
destructions qu'il requiert. 
Notons cependant que l'element 
d'indice doit contenir la plus 
petite valeur pour le type de 
variable triee. Ainsi, pour des 
chaines de caracteres, la chame 
vide est cette valeur qui est plaeee 
automatiquement lors du 
dimensionnement du tableau. 
Pour un tableau de nombres 
positifs, est une valeur 
inferieure ou egale a tout nombre 
positif. Par centre, pour un 
tableau de nombres positifs, nuls 
ou negatifs, il est obligatoire 
d'assigner respectivement -32767 
ou -10E38 a l'element du 
tableau d'en tiers ou du tableau de 
reels. L'element du tableau ne 
peut pas etre utilise pour inscrire 
des informations a trier. 

Le tri du tableau PAYS peut 
s'ecrire en Basic (voir le 
programme TRI CHAINE 
BASIC. 1.1) com me ceci : — > 

Tri en Iangage 
machine 

Au niveau de la structure, le 
programme TRLCHAINE.C est 
l'equivalent du programme 
pr£ce"dent mais il est e"crit en 



codes 6502. II occupe 215 octets 
de memoire. II est bien sur plus 
rapide : une liste de 500 noms de 
24 caracteres est triee en 10 
secondes (cf. TRI.CHAINE.1.2) 
au lieu de 35 minutes en Basic ! 

La syntaxe est la suivante : 
&N,PAY$(1,CLE),P%(1) ou N 
confient le nombre d'elements a 
trier et CLE vaut 0,1 ou 2 selon 
que le tri s'effectue sur le nom, la 
capitate ou l'abreviation du pays. 
Voici d' autres exemples : 
& 500,a${l),LX%(l) 
& t(0) ! ad$(l,3),h%Cl,3) 
Le chargement du programme 
s'effectue automatiquement a 
l'aide des programmes TRI. DOS. 
INIT.C ou TRI.PRO.INIT.C 
suivant que le systeme est gcrc 
sous DOS 3.3 ou ProDOS. Dans 
la version DOS, le chargement 
doit s'effectuer avant toute 
creation de chatnes de caracteres 
car le programme se loge sous le 
HTMEM. Par contre, en ProDOS, 
le programme TRLCHAINE.C 
est charge entre le Basic.System 
et sa memoire tampon d'usage 
general sans alterer les zones 
reservees au Basic. 

Le programme source, ecrit avec 
l'assemblcur ProCODE, est 
documente de telle sorte que le 
lecteur puisse faire le parallele 
entre le programme de tri en 



SIJD PI (11-1 



1000 FOR I - 2 TO 



1010 XS = PAYS (l.CLE) : 

pi in » t 



1C20 FOR J ■ 1 TO « STEP -1 ' 



i5J ■ PItJI 



Rnner il. compari 



1040 on 5 * ixi ^ PAYS 
c, aooo 



Compara lion 



Si.. ALORS mJCFimis SINON diasiage 



1050 HEHT J 



insn kvxt r 



3000 H£H IneniBi 

[1IJ-11 - I 

suss j - o 
20 40 



3004 PEM <l««alAa«a 
3020 Pifjtll - JJ 
3030 RETURN 
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Basic et celui-ci. 11 suffit tie se 
rappeler que chaque clement d'un 
tableau de chaines occupe 3 octets 
et que chaque nombre d'un 
tableau d'entiers en necessite 2. 



Page zjcro 



S: CE 14 Pe intent el de PAYS U4CE) 

I: 01 14 Peine tur il 1 de PAW IUOII 

S3: 3A IS Pointful il 1 de Pt 11S3A) 

SB; OA OB Nb d'iltnanta t frier I000AI 



Tableau P% 

I S3 9; 00 00 ilinmnc 0: V.iiur 

.'S3 A; 00 OJ Ji»n»ne J: v*l«ur I 

1S3B, 00 00 eiement Si Vaieur 
ISf 0; 

154C. 00 00 ■Si*iusnt 10. VtLtlir 











basse de 


fttniede 




i lockage 







p&rtii 


fkmte de 






I'aiJier 



Voici la situation avant le tri 
(programme TRJ.CHAINE, 1,0) : 



Tableau PAYS 



Lon<jve"r-pQil\icl? 



14CS; 
14D1 : 
1404{ 

UBAi 
14EC: 



00 BO CO HO Vide 

as oi is ai rtoiie 

as IB it fit feya-Ban 

07 10 13 ill BtlQUpt* 

07 21 13 tllO. Irian* 



$1213 
S123B 

S132S 



Zone chaines de caraetirex (dans les 
DATAs du programme) 

: 49 74 SJ 6C 65 22 2C 22 .. 
IT I 1 I • » , ' * _ 

121B; SO tl ?» 73 20 42 SI 13 22 2C 22... 
Pays-Baa", 

H3B: 42 tS ec 67 69 71 75 65... 

Eelljiqut... 

USC; 46 72 SI 6E 63 SS._ 



l\2»l 49 72 SC 61 tf. 64 65 
1 f 1 a n d e 



Programme 

'TRI. CHAIN E. MENU' 

10 REM *«» TRI. CHAINS. MENU 

20 : 

30 GnmiR 70; -REM INITIALISATION 
AO IF R > THES SOSUB 720 
SO HUME : END 
60 i 

70 rem /// rNrTrflr.rs^Trow /// 
SO i 

SO PRINT chk$ (21) 
100 s 

110 REM — LECTURE DATA — 
130 ,- 

130 DIM Mf(Sf 
140 FOR I = TO S 
150 READ MS (II 
1(0 NEXT I 
170 DIMLf(8) 

180 FOR I = J TO S 
130 READ L$(I) 

200 NEXT I 

£10 : 

220 REM — D0S/PR0DOS -- 
230 t 

240 dtm mstll 

250 READ ROf (0) ,RU$(1) 

260 PRO = PEEK 148896) •* 76 

270 i 

2 SO RF.M mffiTOBTF.? 

2SC : 

300 Df - vkr$ (4) 
310 BS$ - CHR$ (71 
320 L$ = » 



330 LI = 20 ~ LEtf IM$fC)> / 2 
340 L2 = LI + { INT (LI) / 2 < > LI / 
21 

350 i 

360 REM — TITHE — 
370 : 

380 TEXT : HOME 
39G INVERSE 

400 FRIST SPC( Ll);M$(0)f SFCi L2) 
410 : 

420 REM — BAS ECRAN — 
4.10 : 

440 YTAB 24: PRINT 3PC t 39) 
ISO POKE 2039,32 

460 VTAB 24 ; BTA3 5: PRINT MS tl) ; 
470 H s> 5 + f.EN IM$(I)) 
490 NORMAL 
430 I 



500 REM — MENU — 

51(1 : 

520 VTAB 2; HTAB J ; PUMT 
530 FOR I = 1 TO 4 
540 PRINT 

SCO PRINT -;M$<1 l I) 

570 HTAB 12: PRINT Lft2 ' 1 - 1) 
5BQ STAB 12; POINT L$(2 * I) 

SSsfl pjirwr r.s: 

SCO HEXT I 

610 : 

620 REM — CH0IX — 

6.10 - 

€40 VTAB 24: HTAB H 

650 GET BS;fi = VAL (R$) 

660 IF R > =1 AND R < = 4 OR R$ = 

CUPS (27) THEN 700 
670 PRINT 0R4i 
6S0 tXt X$:K = VAL (tt$) 
€90 GOTO 660 

700 RETURN .- REM <1S1TIALISATI0N> 

no : 

720 REM /// PROGRAMME ///, 

730 : 

740 VTAB 5 * B - J; NTAA 12 

750 INVERSE 

760 PRINT M$ tl + Rl 

770 NORMAL 

780 PRINT DSfRUS (PRO) ;M$ (1 4 R) 

730 RETURN ; REM <PROSSAMMEZ> 

S00 ; 

810 REM ttt DONNEES FIXES ttt 

S20 : 

830 DATA -TRI DE TABLEAU DE CHAINES' 

Bid DATA "VOTRE CHOIX (1-4 01} ESC) : 

850 DATA "TRI . CHAINS. 1,0" 

860 DATA "TRI. CHAINS. 1 .1" 

870 DATA "TRI.CHAINE.1.2" 

880 DATA "TRI. CHAINE.DEMO" 

830 DATA "tri d'un tableau 10X3" 

300 DATA -on lang-age-machlne" 

910 DATA -tri d'un tableau 10X3" 

920 DATA "en Basic." 

930 DATA "trl de S0O jiw de 24 car. " 

940 DATA "en lanqagn-iiiachine (10 sec 
)' 

950 DATA "Animation de ia technique" 

960 DATA "de tri par t inert i ran" 

370 DATA "RUN" 

360 DATA "RUN BASIC/" 



Programme 

'TRLCHAINE.1.0' 

10 REM *** TK1 .CRA1NE. I ,0 

20 : 

30 GOStlB ISO: REM /// IKIT PROGRAMME 

/// 

40 : 

50 REM REPETER ::: 

60 : 

70 COSUB 670: REM /// MENO /// 
80 IF HOT FIN I THEN SO 
90 ; 

100 REM ::: FIN REPETER ::: 
110 : 

120 IF CAS ~ 4 THEN 15002 REM <RETOV 

R MENU> 
130 END 
140 : 

150 REM /// INIT PROGRAMME /// 

160 : 

170 RfM — DOS OU PRDDDS — 
ISO : 

190 DOS - PEEK (100361 < > 76 
200 ON 2 - DOS GOSUB 530,530 
210 : 

220 RKff — caffi. np mwTBnr.p — 
230 ; 

240 BS = CHRS (U) 
250 BR$ - CHRS 17) 
260 : 

270 REM -- TABLES DBS PAYS — 
280 : 

230 DIM PAiSllO, 2>,PI<10) 
300 : 

310 READ N 

320 FOH i = I TO N 

330 FOR J = TO 2 

340 READ PAY$(I r Jl 

350 NEXT J 

360 NEXT I 

370 : 

3S0 REM — TABLE DES MESSAGES — 
390 i 

400 DIM MS (5) 
410 FOR M = TO 5 
420 READ MS (Ml 
430 NEXT M 
440 : 

4SO REM — AFFICNAGE LISTE A TRIER 
460 : 

470 PR TNT Pfffti (21): REM <CARTE B0 

COL. DESACTIVEE> 
460 TEXT ; HOME 
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430 V = 1: OJSUB 1330: REM /// AFFIC 

HAGE LISTE //f 
500 POKE 34, 12. 

510 RETURN : REM <INIT PROGRAMME 
520 ; 

530 REM /// INIT DOS /// 
540 ! 

SSC PRINT CURS (4) l "BRUN TR1.DGS.INI 
T.C" 

5f0 0$ ■ CHRS 113) f CHRS (4) 
570 RETURN : REM <INIT DOS> 
5B0 • 

5 SO REM /// IHII FROOOS /// 
fOO | 

€10 DS m CMS 14) 

620 PRINT D$ r - "PREFIX CODE. MACHINE " 
630 PRINT D4; "BROW TRI.PRO. INIT. C" 
S40 PRINT DS; "PREFIX /" 
€50 RETURN : REM <INIT PRODOS> 
660 : 

€70 REM /// MENU /// 
S80 ; 

690 REM — AFFICHAGE MENU — 

tOO s 

710 HOKE 

720 FOR M = TO 5 

730 VTAB 13 + 2 » M: HTAB 5; PRINT Mi 

tW; 
740 NEXT M 
750 : 

7S0 REM — INIT CROIX — 
770 i 

780 POKE 43168,0 
730 PRINT 3S;BS; 
$00 • 

610 REM — CHOIX — 
820 .- 

830 GET RS 

840 IF ASC IRS) < 32 THEN RS - "?" 
850 PRINT RS/BSf 



860 


CI - 


(RS 




"P" 


OR 


RS 




•P"> 


870 


C2 = 


fs# 




"C" 


OR 


Rf 




"O 


880 


C3 = 


(RS 




"A" 


OR 


SS 




"a 


8 SO 


C4 - 


fHS 




"M" 


OR 


R$ 




"1H-J 


900 


CS = 


(RS 




"S " 


OR 


Rf 




"3 -J 


310 


CAS - 


CI 




C2 


• 2 


+ 


C3 





4 + CS * 5 
9?0 IP CAS - THEN 810 
330 : 

340 REM — TRAITEHENTS — 
350 ; 

960 ON CAS GOSSJR 990,390,99.0,1150,115 


910 RETURN : REM <AFFICHAGE MENU> 
990 ; 

930 REM /// TRI /// 
1000 : 

ioio vle - cas - i 

1020 t N,PAY$ll,CLE),P*tl) 
1030 TRIE - 1 
1040 i 

1050 REM — AFFICHAGE LISTE TRIEE — 
10SO ; 
1070 HOME 

1080 V - 13: GOSUB 1330; REM /// AFFI 
'JtiAUS. LISTE /// 

1090 i 

1100 REM — ATTFNTE TOUCH? — 
1110 l 

1120 GOSUB 1420: REM fff TUUCHE /// 

1130 RETURN s REM <TR1> 

1140 

1150 REM /// F1NI /// 
1160 I 

1170 FINI - I 
1180 POKE 34,0 
1190 VTAB 23 

1200 OH 2 - DOS GOSUB 1230,1280 
121 C RETURN : REM <FINI> 



1220 : 

1230 REM /// FIN DOS /// 

1240 : 

1250 HIMEH: 38400 

1240 RETURN ; REM '■FIN J3[M> 

1270 : 

1260 REM /// FIN FROD0S /// 

1290 i 

1300 CALL 48688; REM ^LIBERATION DCS 

ZONES ALLOUEES ISBEFB: FREEBFRi 
1310 RETURN : REM <FIN PROD0S> 

1320 ; 

1330 REM /// ATriCHAOE LISTE /// 

1340 : 

1350 VTAB V: HTAB 1 
1360 FOR I m I TO N 

1370 J - Pi (I) * TRIE I I * NOT TRIE 
1380 PRINT PAYS (J, 0) ,* TAB f 201 ;PAIS < J 

,11; TAB ( 34) ;PAY$ (J, 2) 

1390 NEXT T 

1400 RETURN : REM AFFICHAGE LISTS 

1410 : 

1420 REM /// TQUCHE /// 

1430 ! 

1440 PRINT CUBS 17) ; 

14h0 POKE 49168,0; HA1T 49152,128: PU 

KE 49168,0 
14S0 PRINT CURS 17),- 

1470 : 

1480 RETURN : REM <TOUCHE> 

1490 : 

1500 REM /// RETOUR MENU /// 
1510 f 

1520 READ M$ 

1530 POKE 34,0 

1540 VTAB 1: PRINT 

1550 ON 2 - DOS COTO 1560,1570 

15(0 PRINT DS; "ROW-; MS 

1570 PRINT D$r"RUN BASIC/"; Ml 

15S0 I 

1590 REM 441 DONNTES FIXES ttt 
1600 ; 

1 610 DATA 10 
1620 ! 

1630 REM — NOV D£S PAYS — 
1640 i 

1650 DATA "Italic", "Rome", "I" 

1660 DATA "Psys-Bas", "La Hays", "NL" 

1670 DATA "Belgiqus", "Bruxmllms", "3" 

16B0 DATA Trance-, "Palis*, "F" 

1630 DATA "DsnemaTk", "Copenhague" , "DK 

1700 DATA "iujeeinfcour^", "Luxejnbaurtj", " 
£" 

1110 DATA "Allemagne fed£zale", "Bonn" 
, "D m 

1720 DATA "Grande Sret25ne n , "loffdrfis " 
, "GB" 

1730 DATA "Gr&ce", "AthGnes", "G" 
1740 DATA "Irlande", "Dublin", "IRL" 

175!) : 

1760 REM — messages — 
17 JO ! 

1780 DATA "Tri par <P>ays." 

1790 DATA "Trl par ■COapJCsJa. " 

1800 DATA -Til par <3Vrbr£vlat Jo 

n. " 

1810 DATA "Rttour flu . , . <K>enu. - 

1820 DATA " «>grtl.," 

1630 DATA -Voc re cfcoix,- <7>~ 
1840 ; 

1850 REM — MENU — 
I860 • 

1870 DATA "TRI. CHAINS. MENU- 



Programme 

'TRI.CHAINE.1.1' 

10 REM *** TRI.CHAINE.1.1 *** 
20 : 

20 COSUB ISO: REM /// INIT PROGRAMME 

/¥/ 

40 : 

50 REM ;:: REPETER ::: 
60 : 

70 COSUB 490: REM /// MENU /// 
SO IF NOT FIN I THEN SO 

90 : 

100 REM ::: FIN REPETER ::: 
110 i 

120 IF CAS - 4 THEN 1360: REM tKETQU 

R MENU> 
130 END 
140 : 

150 REM /// INIT PROGRAMME /// 

160 : 

170 REM — CAR. DE CONTROLS — 
180 ; 

HQ Df - c/ifiS (4) 
2UU BS = CHRS IS) 
210 BRS - CHRS (7) 
220 _■ 

230 REM — TABLES DES PAYS — 
240 : 

250 DIM PAYS (1 0, 2) , Ft II 0) 
260 ; 

270 READ N 

280 FOR 1 =1 TV N 

290 FOR J = TO 2 

300 READ PAYS U, J) 

310 NEXT J 

320 NEXT I 

330 : 

340 REM — TABLE DES MESSAGES — 
350 : 

360 DIM MS 15) 
370 FOR M = TO 5 
3 SO READ MSSM) 
390 NEXT M 
400 : 

410 REM — AFFICfiAGE LISTE A TRIER 
420 : 

430 PRINT CHRS (21) l REM <CARTB 80 

COL. DESACTIVEE* 
440 TEXT : HOME 

450 V - 1: COSUB 1410: REM /// AFF1C 

MAGE LISTE /// 
4S0 POKE 34,12 

470 RETURN : REM <INIT PROGRAMME> 
4S0 1 

490 REM /// MENU /// 
500 s 

51 REM — AFF1CHAGE MENU — 

520 : 

530 HOME 

5*0 FOR M = TO 5 

550 VTAB 13 * 2 * M: HTAB 5: PRINT MS 

(Ml; 
560 NEXT M 
570 ■ 

580 REM — INIT CHOIX — 
590 ! 

600 POKE 49169,0 
610 mrwi' US; US; 
620 : 

630 REM — CHOIX — 
640 : 

650 6£T MS 

€fC IF ASC (RSI < 32 THEN R$ m -?- 
670 PRINT Ri;B$; 
690 CI - fflS - "P" OR {i$ - "p-} 
630 C2 - fSS = "C" OR HS - "c") 
700 03 ■ tR$ = "A" OR R$ - "a") 
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710 C4 = <R$ - "M" OR RS a "m"J 


1450 


J - Ft 11) * TRIE + I * NOT TRIE 


1 40 




720 CS - IR$ - OR SS = "s-J 


14 SO 


PRINT PAYS (J, 0) : TAB t 20)iPAY$tJ 


150 


REM /// INIT /// 


730 CAS - a * M * ! * O * J t Ci * 




,1): 


TAB { 34} ?FAY$ (J r 2} 


T £0 






4 + CS ' 5 


1470 


NEXT 


I 


I 70 


PRINT CifR$ (£2 J 


740 


IF CAS = THEN €30 


14B0 


RETURN : REM <AFFICHAGE LISTE> 


180 




750 ; 




1490 






1 90 




7eo 


REM — TRAITEHBNTS — 


1 500 


REM 


/// TOUCffE /// 


200 




7 70 J 




isio 






21 


DOS - PEEK (48B9 6} < > 76 


780 


ON CAS GOSUS 810,910,810,1340,134 


1520 


PRINT CURS <7); 


220 









1530 


POKE 


4$168 f Q: WAIT 49152,12$: PO 


230 




790 


RETURN : REM <ATFI CHhCE 




KE 49166,0 


2 AO 


Ri\M — TABLEAUX £i L UN 5 J AN 1 £i 


gov I 




1540 


PRINT CHR$ 17)} 


250 




S10 


REM /// TRI /// 


l!)i>0 






JL t J 


rtrw w-^mflfry TV* ^1/1/13 
U±tt JV? t-Jvv/ i i^? ( J vvf 


82G : 




1560 


RETURN : REM <T0UCHE> 


270 


REA1J M5 r jvy?, t 3 7 J &, 


630 


REM — IN1T TRI — 


1570 






280 




640 : 




1 500 


REM 


/// RETOUR MENU /// 


290 




650 CLE = CAS - 1 


1590 






300 


* 


S60 Pi ill - i 


1 600 


READ MS 


310 


SPEED= 255: TEXT I HOME 


670 ! 




1610 


POKE 34,0 


320 


VTAB 12; HTAB 5: PRINT M$ 


esc 


REM — 90UCLE EXTERMS -- 


1 620 


VTAB 


i_- PRINT 


330 


L — 5 + LEN (M$) 


830 : 




1 630 


J'KO = 


eth'K (488 95) = 7$ 


340 


VTAB 14; H TAB 5 : PR INT N'Q$ 


900 


FOR 1 = Z TO N 


1 640 


OH 2 


-PRO GOTO l€50 r l€€0 


~IbO 




610 : 




1650 


PRINT D$;"RUN BASIC/" ;M$ 


3£0 


REM — : ICnitR tW hNTHKL — 


920 


REM EXTRACTION 


1 660 


PRINT DSj "HCIW'VMS 


?70 




930 : 




1670 


• 




380 


J.-F IKw iJ(Jb IH^rf > — 7* -i L"fT J trt<i>/ 


940 X$ = PAYS (I, CLE) 


1690 


REM 


Hi DQNNEES F IXES fff 






650 : 




1690 


■ 




390 


PH-INi iJ*," fJJrcxV 


9(0 


REM -- BOWIE INTERNE — 


1700 


PA TA 


10 


Asm 




970 ; 




1710 


* 




410 


INPUT N 


930 


FOR J « I - 1 TO STEP - 1 


If XO 


REM 


—— NOM DES PAYS ~ ~ 


420 


RETURN : REjM <INIT^ 


990 JJ = PtfJJ 


1 730 


* 




430 




1000 




J 740 


HAT A 


"IT & ] 1 r **f ** 






1010 




1 750 


DATA 


"Fays-Baa " f "L<a Hayc**, "tfL w 


450 




1020 




1 760 






4 60 


PRINT .'4} r -"BRVN TRI. DOS. INI 


1030 




1 770 


vti In 












1 770 


DATA 


m France" r "Paris", m F" 


4 fv 




1040 




1 7)0 


DATA 


"Daa-cinJiitk*', ti Cap-crihi2$ue? f *t "BR 


4 SO 


RETURN ;■ flFM < TNTT Df)^l> 


1 050 


NEXT J, I 








■490 




1060 




1900 


DATA 


"Luxembourg" r "Luxembtiiltg'*/ " 


500 


REM /// INIT /// 


}070 


AFFTCMAGE — 




L" 




C 1 /» 

31 V 




1080 




1610 


DATA 








1 990 


i :(;_, ,'.-f A£M //Y AF^IC'HAGE LI 




, ~D- 




530 


rRINT "PREFIX CODE .MACHINE* 1 




STE TRIEE fff 


1820 


DATA 


"Grande Bretagne",, "Londres " 


540 


PRINT D$r~3RXJN TRI. FRO. IN£T-,C 


1100 


RETURN : REM <TRI> 




, "SB" 






nn r»w nt ■ ""tsDPJT T V /** 

irfilN-t tJZfj rrtiir ±A f 


1110 


t 


1 930 


DATA 




560 


Wr. J Unfit ; k±J4 1 rtt\/LfiJ!s-^ 


mo 


REM /// INSERTION /// 


1640 


DATA 


"Iridridle", "Goblin " f "IRL" 


570 


* 


1130 




1850 






5S0 


HEM /// i.Jii'L.'I'iJrJii' /// 


1140 


P*W #■ J J a r 


1860 


REM 


— MESSAGES — 


590 




1150 




1 9 70 






fon 




1160 


RETURN : REM <IlfSER TION> 


1 99V 


DATA 


H Trl par <P>ayo* ** 


SI 




1170 




1 390 


DATA 




620 




1180 


REM /// DECALAGE /// 


1 iftsU 


DATA 




cm 




1190 










£40 


REM /// At t ±\^tiA<rCr /// 


1200 


F*(J T 1) = JJ 


1 910 


DATA 




G5Q 




1210 


RETURN : REM <DECALAGE> 


1 920 


DATA 




£60 


VI AH 12Z nlAo L; LAL.L - -- r ^ 


1220 




j 930 


DATA 


"Votze choix: <?>" 


€70 


Bandit^ IT* ?T\ 

PRINT N$ Hi 


1230 


REM / AFFICHAGE LISTE TRIEE f 


1940 






680 


VTAB 14: HTAB L: PRINT I 


1240 




1 950 


REM 


— tmtu — 


$$Q 


RETURN i REM <Ar e i ^ivify^-> 


12i>0 


HOME 


1 9 60 






700 




1260 


TRIE = J 


1970 


DATA 


m TRJ . diAIHE.MEWJ" 


710 


REM /// TRI /// 


1270 


V - 13; GOSUS 1410! REM /// AFFT 
OtAOB LISTE /// 








720 

f JU 


HOME 


1290 




Prt 




imme 


740 




1290 
1300 


REM — ATTEKTE TOUCHE — 




TR1.CHA1NE.1.2' 


750 

760 


VTAB 12; PRINT T$ 
S It, H$ (1) r TXtfl) 


1310 


Gosm 1500: REM /// TOVCUE /// 








770 


RETURN REM <TRI> 


1320 


RETURN .■ REM <TRI> 


10 REM *** TRI.CHAINE.1.2 *** 


fun 




1330 




20 : 






790 


RSW /// LrST*E TRIEE /// 


1340 


REM /// FINI /// 


30 GQSUB 150: REM /// INIT /// 


dOO 




1350 




40 : 






810 


$FEEI>^- 220: HOME 


13 SO 


flUJ = 1 


50 FOR I ■- 


= I TO 


820 


PRINT " JVU"f X.A.B f / "NOMS"; TAB t 


1370 


POKE 34,0 


60 GOSUS 580: REM /// LECTURE /// 




28) * "WO DE FICHE" 


T ?J»fi 


VTIR 73 


70 GOSUB 640: REM // AFFICHAGE // 


830 


PR INT " .■ ■ ? f .' j ; f j .';.*.■;;;* * • ; » 


1390 


RETURN .- REM <FIffI> 


90 NEXT I 








1400 




90 f 






840 


.FtJiCi, J9 r £; VTAB J 


1410 


REM /// AFFICHAGE LISTE /// 


100 


G0SU3 


710: REM /// TRI /// 


&50 


FOR 1=1 TO N 


UPO 




un 




7Qf} : REM LI5TF TPTFE 


360 


HTAB 4 - LEN ( STR$ (T})r PRINT 


1430 


VTAB V; HTAB 1 


120 


GOSUB 


920: REM /// FIN /// 




1/ 


1440 


tVK 1 *] IVK 


130 


WD 




370 


HTAB 7: PRINT NS (IX*{1)) ; 
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880 HTAB 34 - LEW f STRS (IX* (I) ) j : 

PRINT TJftfJJ 
890 NEXT I 

300 KETUHN r REM <LlS'i'E TRIE£> 
310 ,- 

9^0 HEM /// FIN /// 
930 : 

340 nu.nr OS; "CLUSE-jFS 

950 ON 2 - DOS GOSUB 1040,1090 

36D SPF.E1>= 255 

970 PRINT : PRINT 

980 HTAB 21 - IB* (Sf) / 2 

390 VTAB 23: PRINT SS: POKE 34,0 

1000 POKE 49165,0: WAIT 49152,123: P0 

KB 491(9,0 
1010 IF PEEK (4 SI 52) c > 27 THEN G 

OSUB 1140: REM /// MENU ff.f 
1020 RETURN : REM <FIN> 
1030 i 

1040 REM />// FIN DOS //V 
1050 ; 

1060 HIMEM; 38400 

1 070 RETURN : REM <FIN DOS> 

10 SO ; 

1090 REM /// FIN PRODOS /// 
1100 : 

1110 CALL 49999: REM <DESALLOUE LES 

SOSES DE rtEMoraE-rawfOfo 
1120 RETURN : REM <FIN PRODQS> 
1130 : 

1140 REM /// MENU /// 
1150 ,- 

1160 ON 2 - DOS GOTO 1170,1190 
1170 PRINT D$; -RUN TRS.CHA 1NE . MENU" 
1180 PRINT DSl'RUN RASIC/TRI. CHATNE.M 

ENU" 
1190 i 

1200 REM fit DOmeS FIXES Hi 
1210 : 

1220 DATA "LECTURE DO NOM ,- - 
1230 DATA "FICHE NO Z ~ 

1240 DATA "TRI.LISTE" 
1250 DATA "TRI EN COOKS" 

12(0 data "esci sortie / autre touche 
: mqwt- 

Programme 

'TRI. CHAtNE.DEMO' 

10 REM TRI, CHAINE. DEMO *** 

20 : 

30 REM iff CORPS DU PROGRAMME Hi 
40 : 

50 COsm 2200: RL74 /// INITIALIsatio 
N /// 

60 GOSUB 1770: REM /// TRI PAR INSERT 
ION /// 

70 GOSUB 1970: REM /// FIN DE PROCRA 
PME /// 

80 END 
90 : 

100 REM / AFFICI1AGE DES MESSAGES / 
110 : 

120 VTAB 23: CALL - 8(6: NORMAL 

130 HTAB IS - I.EX (MS (M) ) / 2: PDTNT 

M$ (M) 
140 RETURN 

150 : 

ISO REM /// PAUSE /// 
170 : 

ISO REM MUUJt", UUREE DES PAUSE 
ISO t 

200 REM LECTURE CLAVIER 

210 i 

220 X = PEES ( - 16384) 
230 IF X < I2B THEN 390 
240 % 



250 REM PRESS ION D'UVE TOUCHE 
260 : 

270 X = X - 129 

280 IF X = 21 THEN CP = CP / 2 
290 IF X = 8 THEN CP = CP ' 2 
300 IF CP < 0,1 THEN CP " 0.1 
310 IF CP > 4 THEN CP = 4 

320 i 

330 REM CLAVIER REINITIALISE 
340 ; 

350 POKE - 16369, C 
360 : 

370 REM BOUCLE DE TEMP0RISATION 
380 : 

390 FOR P - 1 TO DM * CP: NEXT P 
400 RETURN 
410 t 

420 REM /// BRUITAOZ /// 
430 : 

440 FOR T = A TO B STEP S: POKE 768, T 
: POKE /69,H; POKE 736,1: CALL 7 
70: NEXT T 

450 RETURN 

460 : 

4 70 HOI /// EXTHACT1UN /// 
4S0 : 

490 DEM Hi TKATTEMEHT lit 
500 i 

510 JCJt " PRS (I) 
520 : 

530 REM Hi ANIMATION tit 
540 ! 

SSO M = 1: GOSUB 100 
560 DP = 500: GOSUB 160 
570 : 

SSO REM NUMERO EN INVERSE 

590 : 

600 VTAB 3+2*1: INVERSE ; PRINT I 

610 A - l.-fl - S:S - J.-H - 200: GOSUB 4 
20 

620 ; 

630 REM GLISSEMENT 1 

640 : 

650 DP * 500.- GOSUB 160 
660 LX = LEN !X$i 
670 FOR K = TO LX 
(80 NORMAL 

690 HTAB 4; PRINT M1DS- tXS, 1,KJ; 
700 INVERSE : PRINT XS; 
710 A ~ 1:B - 5:S - 1:H = 40: GOSUB 42 


720 NEXT K 
730 | 

740 REM GLISSEMENT 2 

75 ! 

760 FOR K - 1 TO 22 - LX - 4 
770 NORMAL : HTAB LX + 4; PRINT SPC! 
Kl 

7 SO INVERSE ; PRINT XS/ 
790 A - l.-fl - 5:5 = 1:K m 40: OOSUB 42 


800 NEXT K 

810 : 

S20 REM ARRET A DROITE 

830 i 

840 DP - 500: GOSUB 160 

SSO RETURN 

S60 : 

870 REM /// COUP AMI SON /// 
880 | 

flfd REM Hi GLISSEMEUT VERS LE UAUT 
tit 

900 : 

910 FOR L = 5 TO 4 STEP - 1 
920 VTAB L i 2 * J: HTAB 22: CALL - 
868 

330 INVERSE 

940 VTAB L - 1 * 2 * J: HTAB 22: PRIN 



T XS 

950 A ft 10:B = J:S = - ttB = 19: GOSU 

B 420 
360 NEXT i 

370 : 

980 REM ELEMENT COMPARE EN FLASH 
390 : 

1000 M - 2 -, GOSUB 100 
1010 DP - 100: GOS0B 160 
1020 FLASH 

1030 VTAB 3 * 2 * J: HTAB 4: PRINT PR 
1040 FOR F - 1 TO 2 

1050 A ' 2Q-.B = 10;S = - 1;H = 20: GO 

sen 470 

1060 A - 1D.-E = 20;S = ijffl = 20; OOSUB 
420 

1070 NEXT F 

l nan normal 

1090 VTAB 3 I 2 * J; IITAD 4: PRINT PR 

1100 DP = 100: GOSUB 230 
1110 RETURN 
1120 t 

1130 REM /// DEQALAQE fff 
11(0 : 

1150 REM Hi TRAITEMENT Hi 
1160 I 

1170 PRSl-J -r- II = PRS (J) 
1180 f 

1190 REM Hi ANIMATION Hi 
1200 : 

1210 REM MESSAGE BAS ECRAN 

1220 : 

1230 M - 3: OOSUB 100 
1240 DP - 500; OOSUB 1(0 
1250 : 

1260 REM AFFICHAOE DO DECALAGE 
1270 : 

1290 A = lOtB = 1:S = - 1:H = B0: COS 
-5 420 

1230 INVERSE : VTAB 4 + 2 * J: HTAB 4 

: PRINT PRSlJ t 1) 
1300 DP = ISO: GOSUB 160 
1310 VTAB 4 * 2 ' J: HTAB 4: NOKMAL i 

PRINT SPCI 20) 
1320 VTAB 5 f 2 • J: HTAB 4: INVERSE 

: PRINT PR$!J * 1};: NOMUX .■ PR 

INT SPC( 20) 
1330 A = 10;B = 1;S = - 1:H = 80: GOS 

tlR 420 

1340 OP - 1000: OOSUB 160 

1350 VTAB S t 2 » J: HTAB 4: PRINT PR 

SIJ + 1) 
13(0 RETURN 
1370 : 

1380 REM /// INSERTION /// 
1390 : 

140(1 REM Hi ANIMATICK tit 
1410 : 

1420 REM MESSAGE HAS ECRAN — 

1430 : 

1440 M = 4: oosim 100 
1450 ,- 

1460 REM GLISSEMENT VERS LE BAS 
1470 : 

1480 OP - 75; GOSUB 160 

1490 VTAB 3 + 2 " J; HTAB 22: CALL - 
868 

1500 INVERSE t VTAB 4 + 2 * J: PRINT 
XS 

1510 A - JS.-JJ = 1;S - - 1;B = 80: GOS 
UB 420 

1520 DP = 75: GOSUB 160 

1530 VTAB 4 + 2 * J; HTAB 22; Cl\-l, - 
868 

1540 VTAB 5 f- 2 ' J: PRINT Xif 
1550 A = 15:9 - 1;S - - 1:H - B0; GOS 
UB 420 



56 



Pom's n' 25 



1560 DP - 1000; GOSUB 160 
1570 : 

1580 REM GLISSEMBNT HORIZONTAL 
IS 90 ; 

leOO FDR L = 2 X TO 4 STEP - j 
1610 INVERSE : HTA3 L: PRINT XS; 
7 620 NORMAL j PRINT SPCl 11 
1630 A - L.-B - L:5 - 1:11 - 100: GOSUB 
420 

1640 NEXT L 
1650 : 

16 60 REM INSERTION TERMItJEE 

1670 : 

1680 DP - 1000: GOSUB 160 

1690 NORMAL : HI A3 4: PRINT XS 

1700 : 

1710 REM TRAIT£HZNT 

1720 : 

1730 PR$U + 11 = XS 
1740 J - 
1 150 RETURN 
1760 I 

1770 HEW TRI PAR INSERTION 

nan i 

1790 FOR 1=2 TO N 
leOO GOSUB 470 

1S10 FOR J - I - 1 TO STEP ~ 1 
1820 GOSUB 870 

1830 ON (X$ < FRS(J!) I 1 GOSUB 1300, 

11JO 
1840 NEXT J, I 
1850 RETURN 
15(0 i 

1810 Km iff t'lN LIU PKOiiRAMME f/f 
I860 ! 

1830 REM MESSAGE RAS DE L'F.CRAtl 
1000 : 

1910 M m S: (iCJiUH 100 

1920 A = 1:B = 10:S = 1:1! = 100; GOSUB 
420 

1930 A = 1 ;B = 10:S = IsH - SO; GOSUB 

420 
1940 : 

1950 : REM ATTENTE D'UNE TOOCHE 
I960 : 

1370 POKE 49163,0: WAIT 49152,128: PO 

KE 49168,0 
1880 : 

1990 HEM TEST RETOUR TRI .CHAINS. MENU 
2000 ; 

2010 TC - PEEK (49152) 

2020 CH = ITC = 271 + ITC = 13) * 2 

2030 ON CH GOSUB 3060,2110 

2040 GOTO 1950 

20S0 ; 

2060 REM /// SORTIE /// 
2070 ; 

2080 TEXT : HOME 
2090 POP : RETURN 
2100 : 



2110 REM/// TRI .CHAINE, MENU /// 
2120 ; 

21 30 POP : POP 
ZI40 TEXT : VTAB 1 
2150 PKV = PEEK r4S83e>'J - 76 
21 60 ON 2 - PRO GOTO 2170,2180 
2170 PR TNT CtiR$ 14) i 'SOS RXSTr/TRI.C 
HAINE.MEmi" 

2160 PRINT OMRS (Di'Klfti TRI .CHAWS. 

MENU" 
2190 : 

2200 REM /// INITIALISATION /// 

2210 ; 

2220 PRINT CMR$ 121) 

2230 TEXT : HOME t SPE£D= 255 

22 to : 

2250 REM TABLE DES FAYS 

2260 : 

2270 DIM FR$(9) 
2280 N = - 1 
2290 ; 

2300 REM LECTURE PATS — 

2310 : 

2320 READ PR$ 

2330 IF PRS - "F" THEN 2370 
2340 N = N -t 1:PR$(N) m FR3 
2350 GOTO 2300 

23 SO : 

2370 HJW LECTURE DES MESSAGES 
2360 

2330 DIM MS [5} 
2400 FOR K = TO 5 
2410 READ MStKi 
2420 NEXT X 
2430 : 

2440 REM — COEFFICIENT PAUSE — 
2450 j 

24(0 cr - l 

2410 I 

2 4 SO REM BRUIT ACE 

2490 ; 

2500 FOR I - TO 2S: READ A: POKE 77 

t I, A; NEXT I 

2510 ; 

2520 REM AFFrCHAGE TNTTTAI. 

2530 ; 

2540 REM CADRE 

2550 : 

2560 POKE 43, 186 

2570 VLIN 0,47 AT Oi VLIN 0,47 AT 39 

25S0 Li = •■:;:;;:;;:;:::::::::::;;;;:: 



2590 VTAB 2: PRINT L$l 

260Q VTAB 22s PRINT L4j 

2610 VTAB 24: PRINT LEFTS (Li, 39); 

2620 POKE 33,37; POKE 32,2 

2630 : 

2640 MM TITRS 

2650 : 

2660 VTAB 1 



2610 Af - ~T R 1 FAR I N S E R T I 
O N" 

26S0 A - 1? - LEW (A$l / 2 
2690 HTAS A: PRINT A$ 
2700 VTAB 3 
2710 : 

2720 REM AFFICHAGE DES FAYS 
2730 i 

2740 FOR 1 = ros 

^750 PRINT K,-". ";FR$tK): PRIST 



2760 


NEXT 


K 


2770 






2750 


REM MESSAGE BAS DE L 'EC RAN 


2790 






2600 


« = 0; 


GOSUB 100 


2510 


A = 1 , 


B m 10:S 1:H - lOOt GOSUB 




420 




2820 


A = 1 . 


3 = 10: S - 1;H - 50: GOSUB 




420 




2930 






2640 


REM ATTENTE O'UNE TOUCflE 


2850 






2860 


WAIT 


- 1(384,123: POKE - 163(8 








2870 


RETURN 


2380 






2690 


REM 


ttt DONNEES FIXES iff 


2900 






2310 


REM 


- PAYS 


2920 






2930 


DATA 




2940 






2950 


DATA 


"PASCAL" 


2960 


DATA 


-FORTRAN" 


2910 


DA TA 


"COBOL " 


2980 


DATA 


"BASIC" 


2990 


DATA 


"ASSEHBLEUR" 


300G 


DATA 


-MODULA 2" 


3010 


DATA 


"ADA" 


3020 


DATA 


"PL1~ 


3030 


DATA 


"C" 


3040 


DATA 


~r- 


3050 






3060 


REM 


— MESSAGES — 


3070 






3080 


DATA 


-DEBl/T C 1} TRI' 


31)90 


DATA 


"EXTRACTION" 


3100 


DATA 


"C0MPARAXSON- 


3110 


DATA 


"n e c a r. a c r" 


3120 


DATA 


"INSERTION" 


3130 


DATA 


"FIN: <&5C? = SORTIE <RTN> 




= MENU" 


3140 






3150 


REM 


PAOC. HUS1QUB 


31 60 






3170 


DATA 


1 73, 48, 1 92, 1 73, 0, 3, 32, 1 68, 2 




52, 1 73,1, 3,208. 5.206,28,3,240. 6. 




206. 1, 


3, 76,2,3, 96 



Source 'TRLPROJNIV 

assembleur Precede 

1 LS.T OFF 

2 TAB 03,15, 21,31, 36, 49 

3 t i t / * ji * a .J * .> , t * * / * y « , t i * , , , , i ' ' ■ ' ' .« r. . * ' I * i j ' < . i 

4 ' »> TRI.PRO.INIT «< * 

5 # * 

6 * — r&sarve 1 jnAmolze-taiapca d'un* page eijtre * 

7 * le BASIC . SYSTEM et- is meniciir«-(.ajnpun * 

8 * d'usage ^nerai (General Purpose Buffer), * 

9 * - le Dzoqiaitsne TRI .CHAINS. C v est cftanre. * 
2 5 i 

11 * ProBOS I BASIC. SYSTEM I Applesoft * 

12 ' * 

13 * - Auteur: LAMBILLON Bernard * 



14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 



• - Dace de creation: 12 saut 19SS * 

* - Assemhleur: Herlin-Fro 1.43 * 

ORG £300 



Adresses de reference 



Iff = f200 ;M*mvi r*-tM*p°n d'*ntri» 

WASMST - S3D0 tRedimsrrage avec SED 

AMPFSVU = S3F6 /Pointpur perlutte (fj 

AMPERVR - S3F7 ,- fvecteur Ampersand) 

GETBVFR SQU fseeS .-Allocation de m&nolre par 

/page de 25 6 octets; 



Pom's n* 25 



30 
31 
32 
33 
34 
35 
36 
37 
3B 
39 
4(1 
41 
4? 
43 
44 
45 
it 
47 
43 
49 
SO 

SI 
52 
53 
54 
55 
iff 
57 
5S 
59 
SO 
61 
62 
S3 
Si 
es 

66 
6? 
68 
69 

70 
71 
72 
7.5 
74 
75 
76 
77 
78 
79 
S( 
S i 
8? 
$3 
«« 
65 

16 

S7 

as 
as 
90 
91 
S3 
S3 
94 
95 
S* 
57 
as 
99 
100 
1C1 
102 
103 
164 
10S 
lOt 
107 
IDS 
103 
110 



DOSCMD SOU SRF.D3 



BRRCXJT EQV SBE0 9 



PRINTERS BQO SBEOC 
ERRCODE = SBEOF 



■■nsm&re de paves est dans A. 
.'L* adz</s$*= de d£but de la page 

;est uti multiple de 236 (adresse. 
/base - 5111) . 

;Au retour t A = si erreur. 
■■Analyse et execution d'une 
/commande ProDOS plac6e dans 
;la memoir e-zampon d'er.tree; 
:1a ligne de commande se teimine 
;par SSD, le code ASCII des 
;car. psr av**c le hit 7 mix A 1. 
,'Au retour, C - J erreur. 
*£e*Cio/l till d'exxeui 
,'dans cine conman.de Promos, 
■■Le code d 'e.-reui - est place M 
;£flfiCODE f S3E0F) et ERRNUM (SDEI 
fAffiche message d*erre\ir 
■ done le nutne rc est en A. 
.•Code d'u/ie erreur PtcDOS 



* — re r ™ t J on d'unc page de 256 octets 



LDA HOI 
JSP cEfBUFR 
BEQ AHPBR 
FAG 



tj page de 25 6 octets 
.- al locat inn de mimoire 
j si pas d 'erreur 



*- Erreur.- plus assez de place en memolre 



LDA ifVE .-Code errevr; PROGRAM TOO LARGE 

JSR PRINTERR laffiche message erreur 

.IMP HARMST mrrrt- rlu programme Raslc 



Ecri tu re (part ie haute du vecteur AHPERV 



3TA AMPERVli 



jAMFERVH - n ' de page 
j lie la zone aiiouee 



* - conversion de 1 'adrease en ASCII 

* ec ecrlcuze tie celle-cl dans la zone 

* ADRESSE qui memorise J 'adresse de 

* chargement du programme TRI . CHAINE 



TAX 
LSR 
hSR 
LSR 
LSR 
CLC 

ADC i$B0 
STA ADRESSE 

TXA 

AND tSOF 

CMP /SO A 
SMI CHIFFRE 
ADC tSOS 

CHIFFRE ADC tSBO 

STA ADRESSEH 



; sauvegarde de A dans X 
idecslage d-j quartet de 

; pa ids ffi rt riana Tfl 
jquartez de polds faible 
;ex; 9C — > Q9 
j conversion en Ascil 
;ex: OS — > 89 

; restauraclon (ic A 

.-masque SOF (ex; $9C — > SDCJ 

:A - ovartet de poids faible 

J $00 s SOS SOA i SOF 

,-al A Lun t. JejrL dc SOU d SOS 

;ainon A <= A * 7 

lex: SOC — > S13 

i nonvsrs lot sn Ascii 

,-ex; $13 — > SC3 (tattn C) 

sparametre adresse de chazyeni* 



* - Ecrlture pjsrtie hjszc du YeGtcuc AMP£RV 



LDA #500 
STA AMPERVS 



;aliunement sur j page 



* - CopJe, analyse et exicution de la 

* commande ProDOS; BLOAD TRI. CHAINE. 



Ill 
112 
113 
114 
US 
US 

11 7 
lit 
119 
120 

Hi 

122 
123 
124 
125 
126 
127 
126 
12S 
130 
1 ?! 
132 
133 
134 
135 
136 



tO :copiQ de 13 commande 

LDA COMMANDEfY ;dnnx la metoul re-Lampun 

STA lH,r ;d'entree IK (SZ001. 
IKY 

CMP 4S6D ;f{n de rraimniip? 

SATE COPIE 

JSR dosckd : analyse et exicution 

3CC RETOUR ;si pas d'errevr 




JSR EKROVT 
1J>A RRRCnflF 
JSR rRlNTERP 
JKF WARMS! 



RETOUR RTS 



.■analyse l'erreur 
tlmprime le message 

;ariet du programme Basic 

,-retaur au programme Basic 



Commande: BLOAD TRI.CHAINt.L, AS/.'QO 



CCmANDE ASC "3LDADTRI .CHAIKE.C, AS" 



131 ADRESSE 
136 



Uf'fl SB'J, SHU, SHU, SBV 

DFB SSD tfis de la commande 



Source 'TRLDOS.INIT 

assembleur Procode 



i 

2 
J 
4 
5 
6 
I 
B 

s 

ID 
II 
12 
13 
14 
IS 
IS 
17 
13 
IS 

20 

21 
22 
23 
24 
25 
26 
27 
28 
2,9 
30 
31 
12 
33 
34 
35 
36 
37 
3B 
39 
10 
4 1 
42 
43 
44 
45 
46 



LST OFF 

TAB 03,15,21,31,36,49 
********t* + if*1<t*******i***titii* ********** Hit 

»> TRLDOS.INIT <« * 



Ce pragr ttmtutj c-Iurye le programme * 
TRI.CHAIME.C en dessous du HIMEM actuel. * 
le vecteur s est mis en place et le HIMEM * 
est depJaci de 214 octets ISD6). ' 



DOS 3,3 + Applesoft 



Auteurt LAHB1LL0N Bernard 

Date de creation: 12 aout 1S»5 
Asseableur: Htrlln-Pie 1.43 



t * * x* * * a 



********** 



DEC $300 



* — Adresaes de reference 



LINHUMB 




sso 


,-adrcjjc pQur RSHM 






SSI 




Hwma 




$73 


'adresse la plus clavee 


HlftEMH 




$74 


:de la ihemaira vive 


IN 




$200 


rntemol re— tampon d 'entree 


AMPERV3 




S3FS 


rpolnteur perlueze is} 


AMFERW 




S3F7 


/ ivecteur Ampersand) 


DOSKBD 


SOU $9FCD 


.-analyse tine commande DOS 


RSRM 


EQV 


SF28C 


;mlsa en place du HIMEM 








icn fttt>C?t&M tie LltffflJM (Si 


* - HIMEM 


<== 


HIMEM - SDS 


(214 octets) * 


• - AHPERV '.— 


■ HIMEM 


t 











LDY i$03 

SEC 

LDA ISIMEMB 
SBC ISU7 
STA IIWUMB 
STA AMPERVS 
JSR ASCII 



llait pour ecritvre ADRESSE 

. HIMBMB «fM HIMEMB - SO 6 

,'pour RSHM 
.•AMPERVS <= HIMFJ4R 
i conversion en Ascll 



58 
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* - Copie, analyse et execution de la 

* coimande ProflOSr BLOAJ> TRI. CHAISE. 



47 

43 

*? 
50 
51 
52 
53 
51 
55 
56 

57 • 

58 

is cue m 

60 

ei 

62 
63 
64 
65 
66 

i7 * 

ft 
6| 
70 
7! 
72 
73 



IDA H1MEMH 
SBC i£0O 
STA LIKNUMH 
STA AMPERVR 
JSR ASCII 
JSR SSHH 



rlllMEHH * — UIHEMIl re centre 
/pour RSHM 
;AMP£RVH <" HINEMH 
; conversion en As oil 

;RaS t t KiMem 



LUA comhande, Y .'dans la oeiaoire-tampor. 
STA IS,Y ;d'entr4e IN ($200! . 

INT 

CMP *S3D tfln do commando.' 

BNE COPIE 

JSR D05KBD ; analyse et execution 

RTS 



- conversion de 1' adzes se en ASCII 
et ecricure ae celle-cl (tans la zone 
ADRESSE qui memorise 1 'adresse de 
r.harije.ment du programme TRI.CHAINE 



74 ASCII 


TAX 




;sauvegarde de A darts X 


75 


Am 


t?0F 


;masquage des bits 4 4 7 


76 


J5S 




inn quartet 


77 


TXA 






7fl 


LSR 




; decalage du quartet de 


7S 


LSR 




;polds fort dsns le 


un 


T.SR 




;tjuartet de polds faible 


61 


LSR 




text 90 — :> 00 


62 


JSR 


CONVERT 


; conversion qua* Let de 


S3 






;pol ds tort 


64 


RTS 




ifln de la routiiie ASCII 



S5 

se CONVERT C5E5 

87 CME 
Si SMI 
B9 ADC 
9tl 

91 CONVERT! ADC tSBO 
32 



tfSA 

CONVERTl 



93 
94 
9S 
SC 
37 
9S 
99 
100 
101 
102 
103 



STA 
DEY 
urs 



a uu - ! .,'. -. for 
;si A contient de $00 a 509 
tsinon A <= A + 7 
tex: SOC — > 513 

/conversion &n Aseil 

;ex; fl3 — * SC3 (IcLtre CI 
ADRESSE, Y :paramette sdresse de charpem. 

tffn ftr I j) rnu^M CONVERT 



* - Commands; 3L0A0 TRI.CHAINE. C, A$??W 



COMMANDS AGC 
ADRESSE OS 
OFB 



"DLOASTRI. CHAINS .C,A$ 
4 

SS2 



,-fin de la conwande 



Source 'TRI.CHAINE' 

assembleur Procode 



* 

7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 



LST Off 

TAB 03,15,21,31,36,49 

********************************************** 

* TRI.CHAINE 

* - trie Un tableau de Chalnes de caracteres 

* sans modifier 1 "ordre initial. 

* — memorise I'nrdre alphttbetifpia av mnyen 

* d'utie tablq d'lndex ftyp* entier) Qui est 

* Initialises par le progratntie lul-tttemti. 



Syntaxe ; t H, A$ tl) , lX%ni 

avec N i nombre d T el&m&nts A trier 

AS/1); ilimcnt 1 du la tabic a trier 

IX*(1): ^ISraent 1 de la table d'lndex 



Comment f aire ? 



Pour utilizer cette routinB de tri au sein de votre 
programme Basic, vous devrez avoir sur la disquette l&s 
ffehiers hinaires * 

TRI. DOS. INIT. C et TRI . CRAXM: . C 

s'il a'agit d'urts disquette DOS, ou : 

TRI. PRO, INIT. C et TRI .CHAINE.C 

s'i! s'agitd'uns disquette ProDOS. 

Au debut du programma Basic, ily aura une instruction : 

PRINT CHR$(4)"BRUN TRI .DOS . ISIT.C" 

s'il s'agit d'une disquette DOS, ou : 

PRINT CRR$(4)"BRUN TRI. PRO. INIT.C" 

s'il s'agit d'une disquette ProDOS. 

Comment trier ? 

Un exempts simple : 

Dsns un tableau alphanumdrique so trouvont dcs norns de 
clients : 

DIM A${€) : A$(l) = "JEAN" : A$ (2) = 
"PAUL" : A${3) m "ANNE" : A$(4) m 
"YW.S" : A$(5) = "LYDA " : A$(6) = 
"YANN" 

tl faut dimensionner un tableau pour recevo'tr les clefs 

d'acces : 

DIM I%(S) 
Maintenant le tri proprement dit : 

£ 6, AS (1) , I* (1) 

&6 parce QU'it ya6 elements a trier. 
A$(1 ) represents le premier element a trier, 
est le premier index. 

Pour trouver nos clients parordre alphabetique, it faut les 
lire suivant le tableau d'index maintenant modifie : 

FOR I - 1 TO 6 : PRINT A$ (1% (I) ) I 
NEXT 

Les programmes de demonstration 

sous DOS fonctionneront dimctement et d'autant plus 
simplsrnent que vous disposez de la disquette 
d'accompagnement. 

Sous ProDOS, apres saisieau clavier ov transfert depuis 
la disquette Pom's, vous devrez mettre les programmes 
Basic dans un sous-catalogue nomme : 

BASIC 

et les routines dans un sous-catalogue nomme : 

CODE .MACHINE 



DOS + Applesoft on 
ProDOS * Basic. System * 



Applesoft 



19 — — * 

20 * — Auteitr : LAMBILLON Bernard * 

21 * - Bate de creation; 10 aout 19B5 * 

22 * - Assembleur s ProCode 1.23 * 

23 *********************************************** 
24 

23 ********************************** ******x***^itn 

26 * ADRESSES DE REFERENCE '■ 

27 *********************************************** 
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2B 
29 
30 
31 
37 
33 
34 
35 
3S 

37 
36 

39 
40 
41 
42 

43 
44 
45 
46 
47 

IS 

49 
50 
5} 

52 
53 
54 

55 
56 
57 
59 

59 
60 
$1 
62 
S3 
it 
€5 
66 

67 

68 
63 

70 
71 
72 
73 
74 
75 
76 
77 
78 

7_S 

SO 
61 
82 
83 
84 
95 
Si 
87 
88 
85 
90 
91 
92 
S3 
SI 
95 
96 
S7 

sa 

ss 

100 
101 
102 
103 
104 
105 
106 
107 
10S 



' Polnteurs vers la table des chair.es a trier » 



TABLEOB 
TABIrEOH 
TABLE IB 
TABLE1H 
TABLS2B 
TABLS2I} 



£6 ,-adrease de 1 'element 

S7 ,-d-indice de la ianle 

$8 ,-adresse de 1 'element 

$9 ,-extrait de la table 

$10 .'adresse de I'eiejnerst 

$1A ztsumpaci dans 2a table 



* Polnteurs vers (a table d'index 



1NDZX1 B 
INDEX1 H 
INDEX2B 
INDEX2H 



$83 tadresse de l'index 

$84 /de I'&lemeat exirait 
SIB de l'index 

flo ,-de 1 'element contpsrc 



* Sombre d'elements a trier 



NBELH 
NBELH 



$50 
$51 



: la routine GETADR ecrit un 
lender a cette adresse 



' Be-scripeeur tie la chalim <-?..:^- .<- 



LONG! = $93 

CHAINS IB - $M 

CHAINE1H = S95 
PAG 



flonaueur chalne extraite 

/ idressc <£& stOGkagc 
;de la chalne extraire 



* Descrlptetir de ia chil.-.e conparie 



LONG? 

CHAINE23 

CMAINE3H 



$96 
$97 



; longueur chalne ccjt&aree 
.•adresse de stockase 

,-<Je la compares 



• Index de 1 'element extralt 



EUTIERltf 
ENTIER1B 



SSB 



r-pzz : _'t haute de 1 'Index 
■partle basse de l'index 



* Index de J 'element compare 



F.NTTFR2H -= 
ENTIER2B - 



SID 
$1E 



tpartle haute de l'index 
: v. .3 r '- i c basse de l*tndex 



» Routines Applesoft en MEN (ROM) 



FflrtNUM EQU SDD4 7 



CHKCOM ffStf SDBBE 



CHKNUH EQU $DD$A 



CUKSTR EQSJ $DDiC 



PTRSET EOU SDFE3 



GF.TADR EQU SK7S? 



ivalue la lormule polnte; 
;par TXTPTR t$B8 et $B9) 
let place le result at en 
,-FAC (S9D..SA3) 
.teste presence d'unc vlrgule 
isl errevr: ISYXTAX ERROR 

,'et retour au programme Basic 

ftcstc varlahlc type jium^ri^lic 

,-si errtur; -TYPE MISMATCH 
.-ERROR IH numero de llgne 
; teste variable type chalne 
.-ii erreur; 7TYPE HT5HATCH 
rERROR If/ numera de ligne 
,-cJiercBe una variable et place 
rson adresse dans A et Y et en 
;VARPNT ($83 et $84) 
.-transform* de FAC ($9D„,$A2) 
ren un entier 3tocke~ en 



109 
110 
ill 
112 
J11 
It* 
113 

:.f 
117 

118 
119 
120 
121 
122 
123 
124 
125 
12f 
127 
12S 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
It* 
147 
148 
149 
150 

1 SI 
152 
153 
154 
155 
156 
1ST 
153 
1S9 

i*n 

2 61 
162 
163 
164 
165 
1S6 
167 
168 
1 69 
170 
171 
172 
173 
174 
175 
1 16 
177 
178 
179 
180 
181 
182 
183 
!B4 
185 
186 
187 
39S 
169 



.•J.IHNVM ((50, $51) c—a-d NBLE 
; (ncmcre d' elements A trier) 

******* ******* tt*tt*tti*ti****tiiii*Hi*4iHti--i 

» INITIALISATION DU TRI * 
******** + *********** + +**m + ******** * ********** 



* Lecture du nombre d'elemertts a trier (NBLE) 



JSR GETADR 
PAC 



; lecture <Ju nambre a 'elements; 
;et stockage en FAC ($9D. .$A2) 
."PAC — > NBLE ($50 et 5521 



* Initialisation polntenrs TABLEO et TABLE! 



JSR CHKSTR 

SEC 



JSR CHKCOM .-teste prisc»« d'une vlrqulc 
JSR PTRGET ipleiati adz esse tie? la va Liable 

;pointee psr TXTPTR darts A 
; (partle basse) et Y (paztle 
rhautel 

f tefftc variable type ehaznc 

; initiation soustractlon 
ST A TABLE 13 ,-transfert de A ~r> TA3LE1B 
SBC t$03 :3 octets nar Aliment d'un 

f tableau du type chalne 

3TA TABLEOB itramtert de A — y TABLEOB 

STY TABLE 1H ;transtert de Y — > TA3LE1H 
TYA 

SBC iSOO 



STA TABLE OH 



;TABLEOH <— TABLE IK - carry 
:trrnrt*)ix. de A — > TABLEOH 



* Initialisation du pointeur INDEX! 



JSR CHKCOM ;teste presence d'une Viryule 
JSR PTRGET ;place adresse de 1 'ilement 1 
;de la table d'index en VARPNT 
; ($03 et $84) c-s-d lei INDEX I 
JSR CHKNUM ;teste s '11 s*aglt d'un tiotukie 



■ — * 



* Initialisation campteur EXTIER1 et IXt(l) ' 

LDY iSOO .-ENTIERIH <— 

STY ENTIER1 H 

7TA 

STA (ItSJEXlB), Yspartie haute IX* Hi <-- 
INI 

STY ESTIER1B :ENTTER1B I 
TYA 

STA tlNDBXlB) ,Ys partle basse IX* (11 <-- J 
CLC ;lnlt. report pour EXTRACT 

***i*k**i****ii-k*i*iit*ii*k***.****J<***k* ******* 

* BDUCLE EXTFRNF. (FOR 7 » 7 TO N) * 
*********************************************** 



* Riveter NBEL <-* WBEL-J tant aye NBEL <> * 



WA 


NBELB 




SHE 


EXTERNE1 


;sl NBELBoO 


DEC 


NBELH 


JNBELH <■== NBELR-1 si NRIRR=0 


DEC 


NBBLB 


.-NBELB < — NBELS-1 


BNE 


EXTRACT 


fal NBLEBOQ 


IDA 


NBELH 




BNE 


EXTRACT 


;sl NBLEB=*0 et NBELHoQ 


RTS 




NBELB-0 et NBFLH-0 


PAS 







#t It * *************** It * t MM* ¥ *X V W ■ > I I « > M • * It* f 

* INSERTION * 



60 
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190 
191 
192 
193 
J 94 
195 
196 
197 
198 

1 90 

200 
201 
202 
203 
204 
205 
2(16 
207 
208 
209 
210 
211 
212 
213 
2U 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
22S 
229 
230 
231 
232 
233 
234 
235 
236 
237 
23$ 
239 
240 
241 
242 
243 
244 
245 
24 1 
247 
248 
249 
250 
251 
2£2 
253 
254 
255 
25 i 
257 
258 
259 
260 

2 SI 
262 
263 
264 
265 
266 
26? 
26$ 
2 69 
270 



* ENT1ER1 <-- ENTIER1 I 1 



COBtlcnt 3*ENTIER2B 
;sl pas de d^bor dement 
;TABLEH <== TABLEff+l 



INC ENTIER1 B .-ENTIER1B •'— ENT1ER1B+1 
BNE UfSERTl -sl pas de cijfft, de page 
INC EttTIERlH ,-EttTIERlH e — ENTIERlH-rl 



* Copie de ENTIER1 dans 1 'ilement jjointe jar 

» IHDEX2 * 2 



INSERT 1 LDA ENTIER1H ;copie partle haute 

LDY l$02 

STA (IMDEX2B) r Y 

LDA ENTIERID /copie parti e bast* 
INI 

STA (INDEX2B) , Y 

CLC :bit de ceoorc ford J 

rinlt. report pour EXTRACT 

BCC EXTERNE ; ktantihcmciiL Ijjc-omii tioiuiei 
*********************************************** 

' EXTRACTION * 

*********************************************** 



» TABLE 1 < — TABLET -i 3 



EXTRACT LDA TABLE1B t TABLE IB <— TABLE1B+D 

ADC 4503 

STA TABLE IB 

SCC EXTRACT* 1 ;*t pan dp. report 

INC TABLED! TABLE III * — TABLEMrS 



* INDEX2 <— INDEX1 

* indexi '.== imexl v- 2 



* Sauveyarcfe du descripcei/r de cirafne cojitenj * 

* dsns I'element extraJt. * 

LDY tQ2 rcoplc da 3 octets 

EXTRACT2 LDA (TABLE1BJ , Y 

STA LONG1, Y .-ecrlture en CHAimiH, 
DEY : CHAINE1 B et L0NS1 

8 PI. EXTRACT2 

*********************************************** 

* B00CLE INTERNE (FOR J-l-1 TO STEP -J J * 
************************ 



• TABLE2 <== 3 * ENTIER2 * TABLES 



INTERNE LDY l$0a 

LDA (INDEX2B) ,Y /lecture de ENTTER2H 

STA TABLE2H .-copie de ESTIER28 en TABLE2H 

STA ENTIER2H ;st sauveaarde en ENTIER2H 

my 

LDA (INDEX2BJ , Y ,-Jectlrrc dr EttTIERSa 

STA TAULE2B ; copie de EIIT1ER2B en TABLE2B 

STA ENTIER2B ;et sauvegrarde en ENTIER23 

ASL ;A contitnt 2*ENTIER2B; 

ROL TABLE2H ? TA3LE2H f— 2*Fi)TIER2H-trepart 



CLC 

INTERHE1 ADC TA3LE0B 

STA TABLE2B 

LDA TABLE2H 



.■A sentient 3*ENTIER2B+TABLE0B 
;cs: pcur TABLE2B 

;A contlent Z'ENTIEBZH-treport 
ADC ENTIER2H :A cant lent 3*EttTl?k2H 
CLC 

;A contitnt 3*BNTIER2H*TABLEQH 
;ak pour TABLE2H 



ADC TASLEOH 
STA TABLE2H 



271 ADC TA3LE23 

1 72 BCC INTERNE1 

2 73 INC TABLE2H 

274 
175 
276 
271 
27S 
279 
290 
2S1 
2S2 
2S3 
284 
295 
236 
281 
268 
283 
290 
291 
292 
293 
294 
295 
296 
297 

298 * 

299 1 Test dernier earjetire d'une des cbalnes? 

300 * Test si una des chAlnss est vide} 

301 * — 

302 
303 
304 
305 
306 
307 
308 
309 



* Sauvecrarde du descrloteur de chalrte content * 

* dans 1 ' el&ment compare . * 



LDY i$02 ; copie de 3 octets 

INTERNE2 LDA ITABLE2BI , Y 

STA LOMC7, y /tcrltura »n CHA1NS7H, 

DBY i CHAINE2B et LONG? 

BPL INTERNE2 
PAC 

****************************** ***************** 

* COMPAPAISON * 

*l****w~ - ~ ~ ~ . 



INTERNE3 IKY 

CPY LOHG2 

BEQ INSERT 

CPY L0HG1 

BEQ DECKLE 



,-Y=0,l,2,,, 

JP1 dezftier car3Ct£re chalne 

,-cranparee CLONG2-0 on LONG2=Yt 

ssl dernier caractire cftainee 
rxlrr f/.flMRI.n nil *Y) 



1 








* 


310 














311 






CLC 








312 




EXTRACTl 


LDA 


INDEX1B 


; INDEX2B 


<= INDEX IB 


313 






STA 


Tf!DEX2B 






314 






ADC 


4302 


1 INDEX2B 


< — ItiOBXlB+£ 


315 






STA 


IHDEX1B 






31 6 






LDA 


IWDEX1B 


;INDEX2M 


<-= INDEX1H 


317 






STA 


IHDEX2H 












ADC 




; INOEX1 ff 


< — IXDEX1H+ report 


319 


* 




STA 


INDEX1B 






320 


* 




PAG 








321 


* 



comparalson du rente caraccere des 2 chalnes * 



IMA (CHbrNEPB} ,Y,-i±Yp\me irar. rhainp. rnmparAe 

CMP (C17AINE1D1 , YtM-Yimt car. chains entrsito 

BCC INSERT ;A < M 

SHE DECALB ;A > M 



* caracteres identlques 



RF.Q 1NTF.RI4E3 zhranchement inconditiannel 

********* ***************** ***** ** ************** 

* DECALASE 1 
*********************************************** 



322 
323 
321 
325 
326 
327 
328 

329 ' 

330 * IXilJ+l) < — Jjcifj; 

331 * 

332 

333 DECALE 
334 



335 
336 
.137 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
343 
350 
351 



LDY f$02 

LDA EBniERZH 

STA HNDEX2BI r Y 
1ST 

TJW KHTTKAPR 

STA (INOEX2B) ,Y 



* NEXT J rboueie IflterneJ , J <= 

* INDEX2 <r= INDEX2 - 2 



SEC 

LISA INDEX2B 

SBC /S02 

STA 1NDEX2S 

BCS INTERNE 

DEC INDEX2H 



." INDEX2B <== INDEXSR-? 



7 si pss de retenue 
;INDEX2H WDEX2!t~l 



BCC TNTERNF shranr.hemtrnt inr.tintH t fnnne. 7 



Pom's n° 25 



Recapitulation 
'TRLCHAINE.C 



Apr&s avoir saisi ce codo sous 
montteur, vous le sauvegarderez par 
BSA VE TRL CHAINE.C.AS7000.LSD7 



7000- 


20 


67 


no 


20 


52 


E7 


20 


BE 


7008- 


DE 


20 


E3 


DF 


20 


ec 


DO 


38 


7010- 


85 


08 


E9 


03 


85 


06 


84 


09 


7018- 


93 


E9 


00 


65 


07 


20 


BE 


DB 


7020- 


20 


E3 


DF 


20 


6A 


DD AO 


00 


7028- 


81 


9A 


93 


91 


83 


CS 


84 


9B 


7030- 


sa 


11 


83 


18 


A5 


50 


DO 


02 


7038- 


C6 


51 


C6 


50 


DO 


19 


A5 


51 


7040- 


DO 


15 


eo 


E6 


9ti 


uv 


02 


E6 


7048- 


9A 


A5 


9A 


AO 


02 


97 


?B 


A5 


7050- 


93 


ca 


91 


IB 


18 


90 


DD 


A5 


7058- 


08 


69 


03 


85 


08 


90 


03 


E6 


7060- 


09 


19 


AS 


S3 


8S 


IB 


69 


02 


7068- 


85 


83 


A5 


84 


85 


1C 


69 


00 


7070- 


85 


84 


AO 


02 


Bl 


08 


99 


S3 


7078- 


00 


88 


10 


F8 


AO 


00 


SI 


IB 


7080- 


85 


LA 


85 


m 


CR 


Bl 


IB 


85 


7088- 


19 


85 


IE 


OA 


26 


1A 


65 


19 


7090- 


s:< 


03 


E6 


1A 


18 


65 


06 


85 



7098- 19 A5 1A 65 ID 18 65 07 
7QA0- 85 1A AO 02 M 19 99 96 
70A8- 00 88 10 F8 C8 C4 96 FO 
70BO- 92 C4 93 FO OA Bl 97 Dl 
70B8- 94 90 88 DO 02 FO ED AO 
70C0- 02 A5 ID 91 IB C8 A5 IE 
70C8- 91 IB 38 A5 IB E9 02 85 
7000- IB BO A3 C6 1C 90 A5 



Apres avoir saisi ce code sous 
moniteur, vous fa sauvegarderez par 
BSAVE TRI.PRO.INIT,C,A$300,L$69 

0300- A9 01 20 F5 BE FO 08 A9 
0308- OE 20 OC BE 4C DO 03 8D 

0310- F7 03 AA 4A 4A 4A 4A 10 

0318- 69 BO 8D 64 03 8A 29 OF 

0320- C9 OA 30 03 18 69 07 69 

0328- BO 8D 65 03 A9 UU BO F6 

0330- 03 AO 0(1 B9 50 03 99 00 

0338- 02 CE C9 6D DO F5 20 03 

0340- BE 90 OC 20 09 BE AD OF 



0348- BE 20 OC BE 4C DO 03 60 
0350- C2 CC CF CI C4 D4 02 C9 
0358- AE C3 CS C2 CS CE C5 AE 
0360- C3 AC CI A4 BO BO BO RO 
0368- 80 

Recapitulation 
'TRI.DOSANIT.C 



0300- 


AO 


03 


38 


A5 


73 


E9 


07 


35 


03 08- 


50 


8D 


F6 


03 


20 


2D 


03 


A5 


0310- 


74 


E9 


00 


85 


51 


8D 


F7 


03 


0318- 


20 


2D 


03 


20 


8C 


F2 


B9 


4A 


0320- 


03 


99 


00 


02 


C9 


C9 


80 


DO 


0328- 


F5 


20 


CD 


9F 


60 


AA 


29 


OF 


0330- 


20 


3C 


03 


8A 


4A 


4A 


4A 


4A 


0338- 


20 


3C 


03 


60 


18 


C9 


OA 


J I 


0340- 


02 


69 


06 


69 


BO 


99 


5E 


03 


0348- 


88 


60 


C2 


CC 


CF 


CI 


C4 


D4 


0350- 


02 


C9 


AE 


C3 


C8 


CI 


C9 


CE 


0358- 


C5 


AE 


C3 


AC 


CI 


A4 


00 


00 


0360- 


00 


00 


8D 













Recapitulation 
'TRI.PRO.INIT.C 



Apres avoir saisi ce code sous 
moniteur, vous fa sauvegarderez par 
BSA VE TRl. DOS. INIT. C,A$300,L$63 



Brcinchez un 

la //c 



Bruno 




in use 9 

disk I 



Suivant le principe cher a Apple 
de Vincompatibilite minimale, 
1' Apple He ne pouvait otiliser que 
des lecterns specifiqu.es, alors 
que la difference avec les disk ][ 
est minime, en dehors de la 
presentation. Comme biefl 
souvent en informatique, le 
probleme se resume a une 
question de connexion. 

Le montage ci-dessous - peut-on 
parler de montage considcrant la 
simplicite - a done pour objet 
d'auloriser le branchement de 
votre lecteur d' Apple ][+ ou lie 
sur votre nouveau He. Avec un f/c 



eqitipt du Ml Unidisk, vous 
pourrez brancher votre disk ][ en 
serie avec I'Unidisk 3,5 (se 
referer au manucl Unidisk 3.5). 

Pour cela, il suffit de rcaliscr une 
liaison entre le cable plat du 
lecteur et le cormecteur du lecteur 
de disquette qui se trouve sur la 
face arriere du He. 



Le montage 



II convient de se reporter au 
schema dc branchement car la 
difference des numerotations 
normalisees pour les connecteurs 



Berg et DB complique les choses. 
Attention, si ce montage est 
simple a realises, toute erreur 
risque d'etre fatale. L'interface 
lecteur de disquettes de 1'Apple 
//c est bien moins protegee que 
l'interface dcs ][+ et //e, elle ne se 
releverait pas d'un court-circuit. 
Le branchement entre le cable du 
lecteur et votre montage ne 
comporte pas de detrompeur ; 
veiller a ce que les cables plats 
des deux connecteurs 2X10 
partent dans des directions 
opposees. 



62 
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Le manuel du DOS durme le 
schema des circuits de I'interface 
el dc la carte analogique du disk 
][ (avec toutefois une erreur sur 1c 
signal RDDATA qui est inverse). 
Cote Apple //c, le manuel de 
reference donne les valeurs des 
signaux de ehaeune des broches 
du connecteur externe. II suffisait 
de comparer ces tables et d'en 
deduire le branchement 
necessaire. 

Materiel 

Connecteur male type DB19 a sertir, 
Connecteur male Berg 2X10 a sertir, 
Cable plat 19 fils. 



a 



; 

iConneeUurDBI? 


Cable plat 


Connecteur ■ 


1 (vers 1* //<;) , 


1 9 fils 


IJERG IX 10 | 


J HI 

1 


<- 


1 




1 


1 1 i 


i— 


2 




2 i 


2 1 


*- 


3 






'2 i 


«- 


4 


-» 


4 


I 3 : 


*- 


5 


— k 


S 


13 


*- 


6 


-> 


6 


! 4 ; 


*- 


7 


=+ 




1 4 


4 


e 




8 


5 


4— 


9 


-» 


9 


IS 


1 


10 


-» 




6 


*- 


1 1 




11 17 


N.c. ; 


it- 


12 


-» 


PLC. j 


7 


■*- 


13 


— » 


13.1? 


17 


1— 


14 


— f 


14 


8 


*- 


15 




13.17 


18 


4— 


16 




16 


PLC. 


4- 


17 




N.C. 


19 


4— 


19 


— * 


10 


10 


4- 


19 




2D 


(N.C. = non connected 






1 



N.D.L.R. : Est-il necessaire de 
preciser ici que ce type d'inter- 
vention sur votre materiel exclut 
tout recours a la garantie du 
cunstructeur en cas de pro- 
bleme ? Controler avec atten- 
tion votre montage avec les 
tableaux de connexion des fils 
evitcra les soucis. . . 



0; C 



:> o 
o 



10 9S76S432 1 
19 18 17 16 15 1-4 13 12 11 




Connecteur du 
lecteur externe 
(face arriere du / /e) j 



Prise male 
DB19 
a sertir 




20 18 16 1* 12 10 8 6 4 
oooo-isooo 

19 17 15 13 11 9 7 5 3 



1 Nappe 1 9 fils 



Connecteur 
Berg Male 
a sertir 



Connecteur 
du drive 



Vers le <fiskj[ 



Broehe 
du //c 


Signal 


Description 


1,2,3,4 


GND 


■ Masse signal ©i alimentation 


5 


-12V 




6 


j +5V <Vcc) 




7,3 


+ 12V 




9 


' EXTINT* 


Interruption externe (non utilisee) 


10 


WRPROT 


Ecriture protegee (entree) 


11-14 


SEEKPHO* 


Phase Q d 3 du moteur du bras 


15 


VRREQ 


Demands d 'ecriture 


16 




non connects 


17 


DR2* (DR1) 


Selection du disque 2 ou 1 


13 


RDDATA 


Lecture des donnees (entree) 


19 


VRDATA 


Ecriture des donnees (sortie) 



(* = act if niveau bss) 



PRINiii8i8in@~f 

Le laser a encore frappe I 
La ligne 101 Odu programme 'Analyse Multicritere' de Pom's P4 presents!! 
en effet tous les symptomes d'une grande confusion. II faliait tire : 



...INVERSE : PRINT 
C3;" "; : NOBMAX, : 
INPUT " "; C3$ : IF 
LEN (C3$}... 
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Courbes fractales. suited. 



/.-P. Sorribas 



Le numero 22 de Pom's a 
presente, pour les possesseurs de 
Macintosh, un theme aborde en 
classe de lere S. Les deux 
programmes listes ci-dessous 
permettent une representation sur 
l'Apple // de la courbe de Koch 
pour des niveau* n variant de un a 
six (limite de definition HGR). 

Rappelons ici que la particularite* 
de cette courbe lorsque n = - est 
d' avoir une longueur infinie et de 
delimiter unc aire finic. 

Le type de construction de cette 
courbe conduit a utiliser un 
langage autorisant les procedures 
recursives, ici Pascal. 

Lc trace sc fera a 1'ecran 
(programme FLOCON) on sur 
traceur CGP 115 de Radio Shack 
(programme FLOCTRAC), ce 
dernier programme etant facile a 
adapter a tout autre traceur. Pour 
varier les plaisir, il est possible de 
remplaccr +60 par -60 ct -60 par 
+60 dans la procedure VKOCH. 







La methods : 

Vous n'avez pas la disquette 
(J'accompagnemeni : il vous faut 
saisir et compiler les listings de 
fagon classique. 

Vous avez la disquette 
d'accompagnement : 
fl faut initialiser une disquette 
Pascal a I'aide du 'FORMATER', 
puis il faut lancer le programme 
BASIC-PASCAL' de la 
disquette Pom's, II suffit de 
transferer les fichiers TEXT en 
suivant ies indications donnees 
par tedit programme. 
II convient alors de compiler et 
d'exgeuter comme 
babituelle merit. 



Programme 'FLOCON.TEXT 

PROGRAM FLOCON; 

USES TUR TLEGRAP flICS , TRANSCEND; 

CONST BASE1-150; 

VAR N, I, ANGLE: INTEGER; 
CAR: CHAR; 

PROCEDURE DEBUT; 
BEGIN 

INITTURTLE; 

PENCOLOR (NONE) ; 

mVETO (50,150); 

PENCOLOR WHITE) ; 
END; 

PROCEDURE CUTE (BASE, DIRECTION: INTEGER) ; 
BEGIN 

IF DIRECTION>-0 THEN DIRECTION .-"DIRECTION MOD 360 

ELSE DIRECTION: — ( ( -DIRECTION) MOD 360} 
TURNTO (DIRECTION) ;MOVE (BASE) ; 
END; 

PROCEDURE VKQCR (BASE, DIRECTION, NIVEAU : INTEGER) ; 
BEGIN 

IF NIVEAU-1 THEN COTE (BASE, DIRECTION) 
ELSE 
BEGIN 

VKOCH (BASE DIV 3, DIRECTION, NIVEAU-1 ) / 
VKOCH (BASE DIV 3, DIRECT ION ANGLE, NIVEAU-1) r ' 
VKOCH (BASE DIV 3, DIRECTION-ANGLE, NIVEAU-1) } 
VKOCH (BASE DIV 3, DIRECTION, NIVEAU 1 ) ; 
END; 
END; 

BEGIN 
REPEAT 

TEXTMODE; 

WRITE ( " NX VEAU ? '); READLN (N) ; 
IF N>0 THEN ANGLE: =60 

ELSE BEGIN ANGLE :—-60;N:=-N; END/ 

DEBUT,- 

FOR T-=0 TO 2 DO VKOCH (BASEl, -120*1, N) ; 
READ (CAR) ; 
UNTIL CAR='F'; 
END. 
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Programme FLOCTRAC.TEXT YXS^ 






PROGRAM FLOCTRAC; 

USES TRANSCEND; 

CONST BASE1=480; 

PI=3. 14159265; 

VAR N, I: INTEGER; 
CAR ; CHAR/ 
LST; INTERACTIVE; 



PROCEDURE COTE (BASE : INTEGER; DIRECTION : REAL) ; 
BEGIN 

WRITELN (LST, V, (RASE*COS (DIRECTION) ) :6: 3, ', ' , BASE* SIN (DIRECTION) : 6:3) 
(trace d'lrn segment en coordonnees relatives) 
END; 

PROCEDURE VKOCH (BASE: INTEGER; DIRECTION : REAL; NIVEAU: INTEGER) ; 
BEGIN W^u, 
IF NIVEAU=1 THEN COTE (BASE , DIRECTION) t^ 1 ^-J^- 

ELSE fL 
BEGIN J ? 

VKOCH (BASE DIV 3, DIRECTION, NIVEAU-1 ) ; 
VKOCH (BASE DIV 3, DIRECT ION+P 1/3, NIVEAU-1 ) ; 
VKOCH (BASE DIV 3, DTPFCTTON-PT/3, NIVEAU-1 ) ; 
VKOCH (BASE DIV 3, DIRECTION, NIVEAU-1 ) ; 
END; 
END; 

BEGIN 

REWRITE (LST, TRINTER: ') ,- 

WRITELN (LST, CHR { 9) , 'IB'); {Interface SSC regies pour 600 hAuds} 
WRITELN (LST, CHR (16) ) ; (miss en mode graph ique} 

WRITE ( 'NIVEAU ? ') ; READLN (N) / 
WHILE N<>0 DO 
BEGIN 

WRITELN (LST, 'MO, ' , -BASE1 DIV 3); (depl a cement ahsolu} 
KR ITELN (LST, ' I ' ) ; { fixa tion de 1 ' ori gine) 
FOR I:=0 TO 2 DO VKOCH (BASF.) r -2*P 7/3*1 r N) ; 

WRITELN (LST, 'MO, ',-BASEl); 

WRITELN (LST, 'I ') ; 
WRITE ( 'NIVEAU ? ') ; READLN (N) ; 
END; 

WRITELN (LST, CHR ( IV) ) ; {retour au mode alphanumerique ) 
CLOSE (LST); 





END. 



Les disquettes qui aceompagnent 
facultativemeat Pom's sont en- 
registries sous format DOS, car, 
en effet, il nous faut pettier aux 
nombreuses machines qui ne 
peuvent utiliser ProDOS ou Pas- 
cal. 

Certains programmes, par essen- 
ce, ne sont pas utilisabks sous 
ProDOS (Patches au DOS 3 J par 
exemple) et done ne doivent etre 
convertis. 

D'autres ne presenteraient aucun fntertt a etre utilises sous ProDOS (Ie jeu SNAKE de Pom's 24, par exempfe). 
Enfin les programmes qui peuvent ou doivent fonctionner sous ProDOS, seront transferees sur une disquette Pro- 
DOS. Pour cela, deux solutions se preseritent : 

• utiliser le programme CONVERT qui est sur Pune des disquettes systeme ; 

• utiliser la disquette 'Utilitaircs lk\ dans Poptton COPIER qui permet de copier des fichiers depuis des disquettes 
DOS sur des disquettes prealablement formatees ProDOS. 

Les fichiers Pascal se trouvent sur la disquette Pom's egalement en format DOS. lis seront transfers sur voire dis- 
quette Pascal fraichement formatee, grace au programme Basic-Pascal de la disquette Pom's. 



DOS, ProDOS, Pascal ? 
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Visions d'Uyyere space . _ . . , 

^ 1 1 Olivier Sotiriaaes 



Aujourd'hui, ks cspaccs a grand 
nombre de dimensions sont 
rencontres partout : de la 
psychologic a la physique 
theorique, de la science-fiction a 
rinformatique. Pourtant, depuis 
le raz-de-maree de vulgarisation 
scientifique lie au ccntcnairc de la 
naissance d' Albert Einstein en 
1979, il semble que le concept 
d'hyper-espace reste lie, dans 
l'esprit de chacun, a celle du 
temps. 

Sur le plan purement mathe- 
matique, ce rapprochement n'est 
guere gen ant car on ne s'occupe 
pas de lunite de mesure- (metre 
ou seconde). II est cependant bon 
de savoir que la Relativite 
Generate entratne implicitement 
un univers a quatre dimensions 
puisque "tordu" par la 
gravitation. 

Le programme TESSERACT va 
faire evoluer un objet 
quadri-dimensionnel sur votre 
ecran, un cube a quatre 
dimensions ; ses aretes ont toutes 
la meme longueur, et tous ses 
angles sont droits mais cet objet 
comporte 16 sommets, 32 aretes, 
24 faces planes et 8 hyperfaces (a 
3 dimensions). Petite question : 
quel est le volume dun tesseract 
d'un metre de cote" ? 

Pour representer notre tesseract, 
il n'est pas inutile d'observer 
1'analogie avec un cube vu par un 
etre a deux dimensions. Si un 



tesseract venait a passer devant 
nous, nous le percevrions comme 
deux cubes, dont l'uu est dans 
une direction perpendiculaire au 
premier, relies entre eux par 8 
aretes. 




Notre programme, ecrit en 
Applesoft, utilise la particularite 
du tesseract de disposer d'un 
chemin hamiltonicn. Cela signifie 
qu'il est possible de parcourir 
loutes ses aretes sans avoir a 
sauter d'un sommet a un autre. 

L'algorithme retenu evite de 
recalculer la position du tesseract 
apres chaque mouvement (car les 
calculs seraient trop longs), et 
foumit un affichage le plus aere 
possible : 16 des 32 aretes sont 
toujours verticales on 
horizontales. 

On peut faire varier la vitesse de 
defilement par le paddle 0; 
l'affichagc est gele par Ctrl-S et 
Reset permet de sortir du 
programme. 



Enfin, n'oublicz pas que le 
tesseract a maigri de deux 
dimensions pour airiver sur votre 
ecran. Vous pouvez toujours en 
construire un en trois dimensions 
pour l'observer plus 
adequatement. Ou attendre les 
futures disquettes optiques de 
Poms destinees a votre ecran 
holographique... 

P.5. : La reponse est un volume de I x 
1 x 1 x 1 - 1 bien sflr ! 









VS. 















Bibliographie : 

Hatland (E.A.Abbott, Presence 

du futur, Denoel) 
La Science et l'Hypothese 

(H.Poincare, Flammarion) 
La Quatrieme Dimension 

(R.Rucker, Science Ouverte, 

Seuil) 



Programme 'Tesseract' 

5 REM*** INITIALISATION *** 

10 HGR2 : HGR : POKE - 16302, 0:F - 1: HCOLO 
R= 3:V - .01; PRINT CIIR$ {17}; ONERR G 
OTO 480 

20 XI = 1:K2 = 199 :X3 - 80;X6 - 18$ ;Y1 - 1 :Y2 

= 136 :Y3 = 55: Y6 - 110:K - .3 
30 Cl - .5;C2 - - ,5:C3 - - .5:C6 - .5:01 - 
,5:D2 - - .5:D3 - - .5:D6 - .5:DK - . 
01 

35 REM *** MISE A JOUR DES VARIABLES LIEES 



40 LI = X2 - XI :X4 = X3 + LI :L2 - INT (LI * 
K + .5) :X5 - X6 - L2;X7 - X5 + INT ( (X3 

- XI) * X) :X8 - X7 + L2 

50 Ml - Y2 - Y1:Y4 - Y3 t M1:M2 - INT (Ml * 
K + .5} :Y5 - Y6 - M2:Y7 - Y5 * INT f !Y3 

- Yl} * K) :Y8 - Y? + MS 

60 IF. K > - 1 THEN DK = - .01 
70 IF K < - .25 THEN DK - .01 
80 K - K + DK * F 
85 REM *** TRACAGE *** 

90 HPLOT Xl t Y3 TO X2,Y3 TO X2,Y4 TO X6,Y8 TO 
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ioo 
no 

120 

125 

130 
140 
150 
160 
170 

ISO 
190 
200 
210 
220 
230 
240 
250 

2 SO 
270 
280 
290 
300 
310 
320 
330 

340 
350 
360 
370 
380 
390 
400 
410 

420 
430 
440 
445 
450 



X8, Y6 TO X4, Y2 TO X2, Y4 TO XI , Y4 
BP LOT TO XI, Y3 TO X3. Yl TO X4, Yl TO X4, 
Y2 TO X3, Y2 TO X3, Yl TO X7 , YS TO X8, Y5 
HP LOT TO X4, Yl TO X2,Y3 TO X6.Y7 TO X8, 
YS TO X8, Y6 TO XI, YS TO X7, YS TO X5,Y7 
RPLOT TO X€, Y7 TO XS, YB TO X5, Y8 TO X7 , 
YS TO X3, Y2 TO XI, Y4 TO XS, Y8 TO XS, Y7 T 
O XI, Y3 

REM *** MISE A JOUR DES VARIABLES LIBRE 
S 

IF XI < 

IF XI > 
Cl - Cl * 
XI = XI + 

IF X2 < 



= 1 THEN Cl = .5: GOTO ISO 

- 200 THEN Cl = - .5: GOTO 160 
(1 - 2 * (V > RND (1}>) 

Cl * F 

= XI + SO THEN C2 - .5: IF X2 < 
278 THEN 200 
IF X2 > -278 THEN 02 
(1 - 2 * (V > 
C2 * F 

- 1 THEN C3 = .5; 
-277 THEN C3 - ■ 
(1 ~ 2 * (V > 

C3 * F 

- 2 OR X7 < -2 THEN C<6 



C2 - C2 * 
X2 - X2 + 
IF X3 < 
IF X4 > 
C3 = C3 * 
X3 - X3 + 
JF X5 < 
OTO 280 
IF X8 > 
C6 = C€ * 
XS — XS ! 
IF Yl < 
IF Yl > 
Dl - Dl * 
Yl - Yl f 
IF Y2 < 



= - .5: GOTO 200 
RND (1))) 

GOTO 240 
- - 1: GOTO 240 
RND (1)}) 



.5 



- 276 THEN C6 

a - 2 * (v > 

C6 * F 

- 1 THEN Dl - 

- 130 THEN Dl 

a - 2 * (v > 

Dl * F 

- Yl + 30 THEN D2 



1; G 



■ - 2: GOTO 280 
RND (1))) 



GOTO 320 
.5: GOTO 3i 
RND (1})) 



.5: IF Y2 < 



190 THEN 3S0 



IF Y2 > 
D2 - D2 * 



- 190 THEN D2 
(1 - 2 * (V > 



- - .5: GOTO 360 
RND {!}}) 



Y2 - Y2 + D2 * F 



IF Y3 < 
IF Y4 > 
D3 = D3 * 



- I THEN 03 - .5: GOTO 400 



=189 THEN D3 
(1 - 2 * (V > 



= -It GOTO 400 
RND (1))) 



Y3 — Y3 + D3 * F 



IF YS < 
OTO 440 
IF YS > 
D6 = D6 * 
Y€ - Y6 + 



2 OR Y7 < -2 THEN D6 



1 : G 



-138 THEN DS = -2: GOTO 44 
(1 - 2 * (V > RND (1))) 
D6 * F 

REM *** INTERVERSIQN DES PAGES HGR *** 
W - NOT W: POKE - 16299 - W,0- POKE 230 
,32 + 32 * W: CALL 62450 



455 



4 60 

470 
4 75 

480 
490 

500 

510 
520 
530 



540 
550 
560 



570 
580 



620 
630 
640 



650 
660 

670 
680 



REM *** PERMET DE FIGER L' IMAGE PAR CT 
RL-S ET DE MODIFIER LA VITESSE DE MOUVEM 
ENT DO TESSERACT PAR PDL(O) *** 
if TAB 1: VTAB 1: PRINT " ": IF PDL (0) < 

> 255 THEN F - PDL (0) / 51 
GOTO 40 

REM *** TRAITEMENT DES (RAPES) SORTIES 

DE LA FENETRE HGR *** 

REM 

PRINT XI;" ";X2;" ";X3;" ";X4;" ";X5;" " 
;X6; " ";X7; " ";X8 

PRINT Yl;" ";Y2;" ";Y3;" ";Y4;" ";Y5;" " 
;Y6;" ";Y7;" ";Y8 
PRINT Cl; " ";C2; 
PRINT Dl; " ";D2; 



";C6 

";D6 



•;C3i 

';D3; 

IF X4 > 279 THEN X2 — X2 — 1 :C2 - ~ .5: 
X3 = X3 - 1:C3 = - .5:X4 - X4 - 1: GOTO 
530 

IF X5 < THEN XI = XI + l:Cl = .5:X6 = 
X6 + 1:C6 - . 5 :X5 - X5 + 1: GOTO 530 
IF XI < THEN X3 = X3 + 1:C3 = .5:X6 » 
X6 + 1:C6 - .5:X7 = X7 + X: GOTO 530 
IF X8 > 279 THEN X6 - X6 - 1:C€ = - .5: 
X2 - XZ - 1:C2 - - .5:X3 = X3 - 1:C3 = 

- .5: GOTO 530 
IF XI < THEN XI - OtCI 



.5: GOTO 530 



IF X2 > 
TO 530 
IF X3 < 



279 THEN X2 - 279-.C2 - - .5: GO 



590 IF X3 < THEN X3 = 

SOO IF X6 > 279 THEN X6 
TO 530 

610 IF Y4 > 191 THEN Y2 

Y3 - Y3 - 1:D3 - - 
€10 

IF YS < THEN Yl - 



0:C3 = .5: GOTO 530 
* 279 :C6 - - .5.- GO 

= Y2 - 1:D2 = - .5: 
.5:Y4 <m:*i -• 1-i GOTO 

Yl + 1:D1 - .5:Y6 - 



YS + 1:DS - .5:Y5 - Y5 t 1 : GOTO £10 
IF 17 < THEN Y3 - Y3 + 1:D3 - .5:Y6 - 
YS f 1 :D6 - .5:Y7 - Y7 I 1: GOTO 610 
IF Y8 > 191 THEN Y6 - Y6 - 1:D6 = - .5: 



Y2 - Y2 - 1.-D2 ~ 
- .Si GOTO 610 



.5:Y3 - Y3 



1:D3 - 



THEN Yl = 0:D1 = .5: GOTO 610 
191 THEN Y2 - 191 :D2 - - ,5: GO 



IF Yl < 
IF 12 > 
TO 610 

IF Y3 < THEN Y3 - 0:D3 - .5: GOTO 610 
IF Y6 > 191 THEN Y6 - 191 :D6 - - .5: GO 
TO 610 
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Line erreur s'est gtissee dans Particle de 
Pascal Cantot, 7e Kit 65C02' paw dans le 
n=> n Pom's 

En effet, 

les instructions TRB, TSB et BIT (adressage 
immediat) n& recopient pas les bits 6 et 7 
ma is, an revanche, positionnent uniquement 
le bit 2. Piusieurs ouvrages traitant du 65C02 
ont co mm is la meme erreur. 
Merci a Daniel Mueller d'avoir In avec 
attention la documentation NCR. 



E.P.E. 5.0 

Pour lister las programmes Basic 

en ava/it et on arridre, poor 
modifier. Insurer, supprlmer <Jas 
t?3rs(?tej:afi sujf rout l'Saran, sans 
reltre les lignes, pour 
r&chercheix- touta chain© 
caracteres, sous DOS et ProDOS, 
Oft 40 at SO CGloaaes, sur Apple 
//e, //e+ et //c. 

200,00 F franco 
echange 2.0 : 80,00 F 
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Courrier des Lecteurs 



40 pistes sous ProDOS 

Interesse par les articles sur le 
formatage 40 pistes, j'ai tente 
d'adapter les patches sous 
ProDOS. 

Dans le "Beneath Apple 
ProDOS", des modifications de 
Filer et de ProDOS sont 
proposces, mais les essais furent 
sans succes. Peut-itre y a-t-il tin 
bug ? J'ai alors essayi de 
modifier le source de l"'inii 
ProDOS" du nume'ro 20 de 
Pom's mais, a chaque fois 
j'obtiens un I/O ERROR bien 
qu'ayant modifie : 

* le nombre de piste ; 

* le Bit Map; 

* le Gap3. 

Quelle est la solution ? 
P. Buschini - 75020 Paris 

Vous avcz raison de signaler une 
erreur dans le patch propose par 
Beneath Apple ProDOS. Dans le 
courrier des lecteurs du numero 
23 de Pom's, J. Rey indiquait les 
modifications adequaLes. II 
indique egalement celles a faire 
pour CONVERT ainsi que pour 
les nouvelles versions du FILER 
et de ProDOS (version 1.1.1). 

Les modifications que vous 
apportez an programme INIT 
d'Alexandre Avrane sont 
correctes, mais il faut egalement 
modifier ProDOS. En effet, INIT 
utilise ProDOS pour verifier que 
lc disquc est bien formate. Si on 
ne modifie pas ProDOS, on 
optieiU un I/O ERROR quand on 
veut verifier un bloc au-dela du 
n 280. La modification du Gap3 
est par contre inutile, sauf si votrc 
disque est trop rapide. 

Les modifications a faire sont les 
suivantes ; 

Source INIT. CODE0.S 

Iigne3I8 CMP #40 

(au lieu de 35) 

Iigne655: U3Y#$27 

(au lieu de $22) 



ligne756: $40 

(au lieu de SI 8) 

Objet INIT.CODE0 

S223F: 28 (au lieu de 23) 
S2491: 27 (au lieu de 22) 
$254D: 40 (au lieu de 18) 

Objet INIT 

S2240: 28 (au lieu de 23) 
$2492: 27 (au lieu de 22) 
$254E: 40 (au lieu de 12 ou 18) 
Notons ici que sur la disquette d'accom- 
pagnement. cet octet a la valeur S12, ce 
qui est incorrect ; la bonne valeur dtant 
$18. 

Rappelons les modifications a 
apporter a ProDOS : 

ProDOS 1.0 

520D; 40 (an lieu de 18) 
ProDOS 1.1.1 

56E3: 40 (au lieu de 18) 

Attention, meme si le formatage 
se passe bien, certaines pistes 
pcuvent etrc "rccouvertes" par les 
demi&res pistes (le bras du lecteur 
fait alors un bruit similaire au 
recalibrage), entrainant des 
erreurs par la suite. Utilisez 
1 'option "verifier volume" de 
FILER ou d'Utilitaire System 
avant d'utiliser le volume. En cas 
de probleme, reduisez le nombre 
de pistes. 



INIT et CMDLINK 

N'y aurait'il pas un bug dans 
I'article "Alio ProDOS" (Pom's 
20)? 

Dans le programme CMDLINK, 
il me sernble qu'il faille remplacer 
la ligne 30 par ; PRINT D$ 
"BLOAD " C$ ".CODE, A$ 
2100". D'autre pan, fe n'ai pas 
compris I'utilisation de INIT. Le 
fichier INIT apres integration par 
INITLINK et CMDLOAD (apres 
correction) est de type CMD, 
done non executable. Sur la 



disquette, il est de type BIN et 
foncdonne normalement. 

L. Fontaine, 72100 Le Mans 

Votre correction du programme 
CMDLINK est parfaitement 
exacte ; le suffixe est bien 
".CODE" et non pas ".LOAD". 
Vous avez egalement raison en ce 
qui concerne le programme INIT 
obtenu, qui est de type 
ComManDe, done pas 
directement executable (il faut le 
charger puis faire CALL 8192). 
Sur la disquette d'aeeompagne- 
ment, INIT est de type EINaire 
ce qui simplifie le probleme. 
Vous pouvez obtenir le meme 
resultat avec CMDLINK en 
remplac;ant, aux lignes 45 et 50, 
"T$F0" par "TBIN . 



EXEC en Pascal 

Je. n'ai pas reussi a. utiliser les 
fielders EXEC en Pascal (UCSD 
1.2). Le manuel de reference ne 
comporte pas Vindications sur la 
commands 'M' du menu 
principal, et le Pom's numero 3 
ne m'a pas iti d'un grand 
secours. 

M. Frank LOPATNIK, 75005 
PARIS 

Voici la methode : 

• Creation du fichier EXEC en 
mode direct : 

M pour Make Exec 
TEST nom du fichier Exec 
I en riponse a la question : 

Ter'>»iiaior=% Change it ? 

ft 

F I Les ordres lapis 

L , ainsi se retrouvenl 

I dans le fichier TEST 
RETURN I (out tn ilant 
I exicui&s. 

It Fin de i'enrtgislrement 

L'utilite d'avoir deux est 
d'eviter de terminer un 
enregistrement alors que, par 
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exeraple, on est dans I'editeur 
et qu'on veut entrer "13%". 
Blen entendu, un fichier EXEC 
ne pourra comporter deux 
consecutifs -ce qui est 
rare-, sauf a changer alors le 
'termmateur'. 

• Creation ou modification du 
fichiej EXEC par I'editeur : 
Comme on le voit en editant 
TEST, il suffit de commencer 
par UN '%' et de terminer par 
QUATRE '%'. 

• Execution au clavier 

Pour executer tout fichier, il 
faut taper X. lei, au lieu de 
mettre TEST -ce qu'on aurait 
fait pour TEST. CODE-, il 
faut rentrer EXEC/TEST. 

• Execution depuis un pro- 
gramme : 

Pour executer tout fichier, il 
suffit d'employer le 

SETCHA1N de CHAIN- 
STUFF. Done : 

5ETCHAIN ('TEST') POUT 

lancer TEST. CODE et 

SETMAIN ( * EXEC/TEST ' ) 
pour un fichier EXEC. 

• Limitation des fielders EXEC ; 

II n'est pas possible de les 
'nester'. lis ne peuvent 
contenir de Ctrl-@, Ctrl- A, 
Ctrl-Z, etc. Si 1c fichier EXEC 
lance un programme et que 
celui-ci fait un READ ou un 
READLN, il ira chercher dans 
le fichier EXEC, alors que s'il 
fait un UNITREAD ou 
KEYPRESS, il ira chercher au 
clavier (comme cn Applesoft 
avec GET ou INPUT d'une 
part, et PEEK(- 16384) d'autre 
part). 



Decrypteur 

Plusieurs Iecteurs nous ont 
signale un probleme avec l'option 
'echange de bits' du Decrypteur 
(Pom's 21). 

II s'agit en fait plutot d'un 
probleme d'ergonomie, le 
programme fonctionnant norma- 
Iemem. Le probleme (plantage) 



survient en fait lorsqu'on lance 
plusieurs fois de suite l'option 
echange de bits par un espace au 
lieu de RETURN. En effet, 
"espace' incremente l'octet 2, ce 
qui est commode pour les options 
ET, OU ou EXCL car le filtre est 
alors pour l'octet 2 : 09 (ORA), 
29 (AND) et 49 (EOR). 

Dans l'option 'echange de bits', 
le filtre est 20 (jmp) 6D 10 ct 
incrementer plusieurs fois l'octet 
2 ne pent conduire qu'a des 
problemes. .. 



et le lie '/ 

Je possede un Apple lie et il me 
semble que cette machine n'est 
pas bien consideree par voire 
redaction, certaines allusions le 
montrent. Bien sur, les 
possesseurs de lie ne reprf.aente.nt 
pas la major ite de voire leciorat 
mats ils n'ont pas mains envie de 
connahre leur machine. Void 
quelques questions : 

• Comment modifier le 'Hard 
Copy de la page HGR itendue' 
pour qu'il fonctionne sur le lie. 

• Sous ProDOS, si je charge 
GRAFO de ToolKit a I'adresse 
$9500, j'obtiens : No Buffer 
Avalaible. Comment y remedier, 
je n'ai pas trouvS la reponse dans 
ProDOS technical reference 
manual. 

• P-FORMAT fonctionne-t-il sur 
lellc? 

• Pour COGO, vous pricisez 
que sur un He, I'ajfichage sefait 
cn simple haute resolution, une 
version He est-elle prevue ? 

M. Bouland 

77300 Fontainebleau 

Non, nous ne delaissons pas le 
lie. Au contraire, nous nous 
efforgons de modifier les 
programmes pour qu'ils 
fonctionnent sur toutes les 
machines : EPE a ainsi etc adaptc, 
le composeur telephonique, le 
Dasicium. Nous continuous dans 
cette voie mais il s'agit la d'un 
probleme delicat car les machines 
ne se laissent pas toujours faire, . . 

• Le programme de Hard Copy 
fonctionne sans modification : la 



precision de l'auteur, concemant 
le SE! n'est a prendre en compte 
que pour une utilisation 
simultanee de la souris. Si le 
programme n'imprime pas, d ne 
peut s'agir que de la position des 
'switches". II convient de noter 
qu'il ne faut pas faire BRUN 
HARD, mais BLOAD HARD, 
A$ 4000, puis CALL 16432 
(basic) ou 4030G (moruteur). 

Plus simplement, vous pouvez 
utiliser le programme Basic 
COPIE. 

• La reponse se trouve bien dans 
ProDOS technical reference 
manual, annexe A.2.1 page 118. 

• P-FORMAT fonctionne sur le 
He, mais I'editeur de police qui y 
est adjoint n'est pas utilisable. 
Nous etudions la modification. 

■ COGO fonctionne aujourdnui 
normalement sur le lie, e'est le 
rcsultat dc nos efforts. 



Les 64 Ko, le DOS 

Comment faire pour utiliser les 
64 Ko de la carte 80 colonnes 
etendue en Basic, et comment 
faire pour enlever le DOS d'une 
disquette ? 

P. Mykiita - 92230 Gennevilliers 

Le plus simple et le plus pratique 
est de les utiliser comme disque 
virtuel : en ProDOS (/RAM), 
sous DOS 3.3 (Pom's 12, 14 et 
16), sous CP/M (Pom's 24), 
Autrement, il faut utiliser le 
langage machine et jongler avec 
les switches et/ou utiliser le 
sous-programme XFER ($CFCD 
pour le lie, SC3B0 pour le //e). 

Pour enlever le DOS d'une 
disquette DOS 3.3 d faut, a l'aide 
d'un editeur de secteurs, indiquer 
dans la VTOC que les pistes 1 et 
2 sont libres (recuperer la piste 
est plus delicat). Voici comment 
faire : 

Piste $11, secteur $00, octets 
$3C, $3D et $40, $41, remplacer 
00 00 par FF FF. 
En ProDOS, il suffit de 
supprimer les fichiers ProDOS et 
BASIC.SYSTEM. ^A, 
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Micro-in/brmations 

Jean-Michel Gourevitch 



Apple ne s'exdut plus de 1'univeis IBM 
el mitonne quclqucs nouveaux produits dc 
son cru : voici la tendance regnant a 
Cupertino. Tendance precise* en juin, 
par Jean-Louis Gassee, le vice-president 
en charge des nouveaux produits, de 
passage dans son fief franjais pour cause 
d'Apple Expo. Jean-Louis Gassee a done 
donr.c des details importants Eur le 
positionnement d'Apple, ei sur Ic 
contcnu de la hotte des Peres Noels de 
Cupertino. Voici loccasion dc faire Ic 
point stir les nouveaux projets. Le 
present d'Apple est aux processeuis 16 
bits et a la coexistence avec IBM, son 
avenir lie a celui des communications. 

Le nouvel Apple // 

Le present commence pour Apple avec la 
sonic de l'Apple // version 16 bits. Car, 
paradoxalement, le recent succes du 
Macintosh Plus (on icceiisc seluu 
Jean-Louis Gassee une base installee de 
750 000 Macs de tous types) pose 
quclques problemes, (."est que, 
parallelement, le venerable Apple // qui 
faisait ics choux gras de la lirme a la 
pomme, se vend de moins en moins. Or, 
si Apple a pu cnlrcr dans les usincs, les 
univcrsites et les commerces, c'etait bien 
grace au transformable au gre de 
1'utilisateur, en oscilloscope, en machine 
a apprendre, ou en caisse enregistreuse. 
II ctait done urgent de le mettie au gout 
du jour. Ce sera bientol chose faite. 
Jean Louis C«ss« a implicitement 
confirm e loutes les rumeurs sur ce nouvel 

Apple sauf les dates officiclles de sa 

sortie. 

Resnmnns pour les lecteurs de Pom's : le 
nouveau II est muni d'un processeur 
65C816, tournanl a 2,5 Mhz en 16 bits, 
capable d'adresser 15 Mega-octets de 
memoire vive (4 Megas seront 
directement installahles dans la 
tanosseric du II new look). Mais cc 
processeur pem aussi fonctionner en 8 
bits, cmukr lc 6502 des aerucls Apple It 
et utihser amSi lous les logicieis 
dsveloppes pour celui-ci. Physiquement, 
le dernier ne" d'Apple se prescnte comme 
un vulgaire IBM en trois elements : 
unite centrale, clavier detachable ct 
moniteur de visualisation. Parmi ses 
caracteristiques : une belle resolution 
graphique (et en 16 couleurs s'il vous 
plait), permettant notamment un 
affichage dc 200x320 points ; un 
nouveau systeme d'exploitation Prodos 
integrant un 'Finder' style Macintosh, et 
unc horloge intcgree. Outre la couleur, 



l'Apple // pourra aussi disposer d'une 
carte sonore exlrememenl perfectionnee 
avec synthehseur a 16 voies. Cotes 
sorties, cet Apple // module 19E6 
supporte bien entendu le rfseau 
AppleTalk, des lecteurs de disquettes 3 
pouccs ct demi dc SOOKo et des letteuis 
de 5 pouces 114. Brer, voici une machine 
performante, s'attaquant aux ordinateuis 
16 bits modcnies, style Atari. 

Reste que la cle de sa reussite tient a son 
prix. Car, des Noel, le march* de 
1'infonnalique individuelle sera durement 
cprouve. Des compatibles IBM se 
ndgocieront vraisemblablement pour 
environ 3 000 Francs, meltant la riche 
bibliotheque de logicieis MS-Dos a la 

portee des utilisateurs lamiliaux. Amstrad 

s'apprete d'ailleurs a sortir un de ces 

compatibles integrant notamment le 
systeme d'exploitation GEM de Digital 
Research (au look si 'Macintoshien' 
qu'on avail du le modifier sous la 
pression d'Apple) pour moins de 6 000 
Francs, Quant a 1'Aiari, (vendu 10 000 
Francs pour une configuration d'un 
Mega-octet dc mdmoirc vive), il se vena 
appuye par un grand frire plus puissant 
ct devrait encore baisscr. Dans ccs 
conditions, Apple devra proposer 
quelques autres caraeteristiqucs incditcs, 
et ;ouer scrre en rnaticre de tanfs, pour 
vendre le nouveau II sans mordre sur le 
Macintosh. En Prance, Apple a ainsi 
entame des manoeuvres pour solidificr 
son reseau (en se separant de certains 

concesstonnaires, en disttnguani ccux 
appcles a vendre I* // de ceux qui 
peuvent aussi foumir le Macintosh, et en 
posant a ccs demters des conditions 
draconienncs, notamment cn maticrc dc 
force de vente, el de surface des locaux). 

Aux Etats-tlnis. memes procedes 
completes par des baisscs dc prix. En 
juillet, le prix du disque dur HD 20 a 
baisse de 300 dollars passant a 1200 
dollars ( 8 400 Francs au cottrs du 
change, ca fait rever, mais le dollar 
'infoimatique 1 reste plus pics de 1 1 
Francs, ce qui met la bete plus pres de 
13 000 Francs chcz nous), Et les lecteurs 
dc 8QGK0 du Macintosh et de I'Appie II 
ont baisse de 20% passant a 400 dollars. 

Bref, comme chez Apple oil prefere 
reserver la nouvelle gamme Macintosh a 
rutiltlisation dans les bureaux, le nouvel 
Apple // ne sera un vrai succes que si la 
configuration complete ne depasse pas 
ou pcu les 10 000 Francs. Pas facile. 



Deux gammes distinctes 

L'une des revelations de Jean Louis 
Gassec, c est que les gammes resteront 
separees. £vaporees, done les rumeurs 
qui promellaiem le fonciionncmcnt des 
programmes du Mac sur le nouveau // : 
«Pai dc produits du type couteau suisic" 

a fermement dementi le vice-president. 

On verra done se developper Chez Apple 
dans les deux ans deux gammes bien 
distinctes comportant chacune trois ou 
quatrc modclcs. Ca, e'est unc double 
information : TAppIe // aura au moins un 
petit frere (en comptant dans la gamins 
l ancien ft et le He). Meme chose pour le 
Macintosh, dont la gammt comprendra 
le recent Mac 5I2Ko avec lectcur de 
SOOKo, le Macintosh Plus, le nouveau 
Mae 'ouvert*. el une autre machine- 
Apple, qui se met a decliner ses gammes 
comme un constructeur automobile, 
propuseia iiiiisi viaiscmblableiiient dans 
chaque ligne un modele dc haut de 
gamme, un extensible, el un portable. 
Message re?u cinq sur cmq : attendez 
vous & voir dans les deux ans un 
Macintosh portable... 

A linterieur de chaque gamine, les 
produils obeiront aux legles de la 
compatibility 'ascendante'. En clair : le 
modele le plus perfection^ sera capable 
de lire les programmes dc l'ordinateur de 
base. Sur lc papier e'est bien beau, mais 
quand on a vecu les problemes de 
passage du He au //c, puts du Mac au 
Macintosh Plus, on demande a voir... 

Deux aamnies distinctes, done, mais 
avec des choses en commun. Et d'abord 
ks periphenqucs, les lecteurs 8OOK0 
notamment, Oizarrcmcnt, e'est cn 
suivant les experiences d'utilisateurs 
astucieux qu'Apple aurait decouvert que 
les lecteurs Unidisk 3 S du II pnuvaient 
aussi foiittioiincr sui le Mac. La kfou a, 
en tous cas. etc retenue. Quant aux 
disques durs, its seront aussi communs. 
La e'est facile : le nouvel Apple II sera 
dote comme Is Mac et l'Apple fie d'une 
interface SCSI. Une exception : l'Apple 
lie, pour lequel l'adaplation d'une 
interface SCS! auiait etc Uop dielicate. 
Ma prevision : l'Apple lie pourrail bien 
voir son prix baisscr considcrablcment 
(jusqu a 3UUU Francs) et devcrur le has de 
gamme d'Apple. . . 

La compalibilite par 
l'echange des donnies 

Revertons aux choses sericuscs. Si les 
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deux gammes d'Appte nc pourront 
s'interchanger les programmes, elles 
pouiront se preter facilement les 
donnees. «Aujourd'hut, a expliquf Jean 
Louis Classee, les programmes SCrat 
pratiquement 'jetablcs'. La vraie valeur, 
ce son! les donnees saisies, qui coutent 
plus cher que le logiciel, et qui! faut 
pouvoir r^cupererit. C'est si vrai 
qu'actucl lenient, le problems de la 
micro-informatique tknt dans 1c coul dc 
ccs saisies, Apple propose done uric 
solution. Puisque les lecleurs et les 
disquettcs sont communs, on devraii 
done, avec un utilitaire, pouvoir par 
exemplc rccupcrcr sur Exctl, dans le 
tecteur d'un Macintosh, des donnees 
saisies sur AppleWorks el dans le lecteitr 
d'un Apple 11, et vice-versa. 

Celts- compatibilite des fichiers se 
rcalisant sur le lecteur meme du 
micro-ordinateur et par lecture directe 
constitue un progres revoluiionnaire. 
Pottrquoi f Parcc qii'clle re s'arretera pas 
aux fronticrcs d'Apple. C'est qu'IBM 
vieni precisement d'adopter le standard 
de la disquette 3 pouces et demi pour son 
nouveau Convertible, et aussi pour ses 
autres PC. Dans les deux ans. lous les 
logicicls dc 1'IBM seiunt done partes sur 
ccs disquettcs ainsi que tears fichiers. 
Gas3ce ne l'a pas cache ; on travaille 
Chez Apple sur un utilitaire permettant de 
lire dans les lecteurs du Mac et de 
t'Apple It les disqucu.es cunlcuaut les 
fichiers de V1BM, bien que celles-ci 
soient onregistr*«S avec un format 

different. Voici la premiere eiape de la 
compatibilite Apple-IBM : celle des 
fichiers. II est vraisemblable qu'Apple, 
qui a dejS eu du mal k reconnaitre que la 
compatibilite des donnees avec le 
MS-Dos pouvait apporter un 'plus' a ses 
clients t'etl tiendra la. 

La firme de Cupertino Iaissera a d'autres. 
comme Dayna ou The Engineering 
Department, le soin d'implanter sur les 
ordinateuis H la pomme le systems honni 
MS-Dos. On pent deja prevoir trois 
e tapes : 

• la sortie d'un nouveau 'Mac Charlie' 
adaptable au Mac Plus, (il se 
presenters commc un chassis 
d'extensions ajoute au classique Mac 
Charlie) penncllaiit de visualiscr sur un 
ecran supplemcntaire les graphiques aux 
normcs MS-Dos, Ce qui permettrait ainsi 
de laire toumer le "Flight Simulator" du 
PC sur le Macintosh (i quoi bon 
d'aillcurs, puisque la version Macintosh 
qui vient de sortir en France est sans 
concurrence ? Mais, il y a tant de 
soctetes qui exigent du Macintosh la 

sacro-sainte compatibilite IBM...) ; 
« la sortie d'unc cane insiallanl dans un 
slot du nouvel Apple // un ordinateur 
MS-Dos cn reduction (avec coprocesseur 
S086, controleur de disqucttes, etc.) ; 
- la meme chose pour le nouveau Mac 



modulairc. 

Le pari de 

la communication 

Pluto! que de s'aliguci sw les systemes, 
on pTcfere visiblement se reserver chez 

Apple le pari de profiter du chaos du 
marche die la communication. Puisque tcs 
donnees sont ce qu'il y a de plus 
piecieux, il Taut tiouvci le iiioyeji dc les 
echanger quel que soit le systeme et 
quelle que soit la machine. Connecter des 
ordinateurs entre eux, ce n'est pas ires 

complique. Le probleme commence avec 
les prolocolcs, l'interface et les 
structures. Sans parler des normes de 
transmission diffcrcntcs cn Europe ci aux 
Etats-Unis. 

Voici pourquoi, et e'est une des plus 
important es revelations de Gassee, des 
fonctions dc telecommunications scront 
integrees el disponibles en ressources, 
dans les systemes d'exploitation des 
Macs et Apple //. Aujourd'hui, lorsqu'un 
programmenr vent creer une fenetrc dans 
un piugiamme pour le Mac, il lui suffit 
d'inserer dans son programme une 
instruction appelant la routine de 
creation de feneires inscrite en ROM. Dc 
la meme fa;ort, il suffira au programmeur 
d'un traitemeni dc tcxtc d'appeler les 
routines de communication pour cieer un 
menu "Acois" permettant, pnr exemple, 

sans quitter le traitement de texte, de se 

connecter sur un serveur ou une base de 
dunnccs, d'ouviii uue fenctre ct d'y 
obtenir des informations qui pourront 
ensuitc ctrc intcgrccs par 
copier/coupcr/coller. 11 sagira de rendre 

plus facile et rapide, ce qu'on peut deja 
rcaliser sur le Mac avec des utilitaires 
comme Mock Terminal. El. de la meme 
fa^on, on pourra cxtrairc des 
informations d'autres micro-ordmateurs. 
Ce progres apportera aux Mae et autres 

Apple // un certain caractere 
'multitiehes' ! on pourra continuer a 
travailler sur le iraitemenl dc lextes, 
pendant que les informations amveronl. 
Des perfectionnements qui prennenl tout 
leur sel avec le reseat] TOPS, deciit plus 
bas, permettant a des Mac et des IBM PC 
de partager fichiers et periphcriqucs. 
Pour en avoir plus, il faudra artendre la 
nouvelle generation de systemes se 
profilant apres 1QE9 ou 1990. Avec une 
architecture du futuT, permettant des 
trailements multiprocesseurs . Ces 
architectures, dcvcloppces i Taide du 
Cray MXP dont Apple s'est equipe, 
devront pour voir le jour permettie des 
ameliorations de performances au moins 
10 a 20 fois superieures aux systemes 
d'aujourd'hui. Un tel changement jcttcra 
alors aux orties la compatibilite. Et 
boulevcrsera du meme coup la puissance 
tt le paysage de la micro-informaiique. 
Mai<s on n'en est pas encore la... 



Extensions MacPIus : 
penurie difficile 
a resorber 

En attendant luulca tcs ujcivcilles, il 
s'agit de resoudre des problemes bien 
plus tcm ii terre. A commencer par la 
dispontbilite des extensions Macintosh 
Plus, En juin, on avouail chez Apple 
qu'il faudrail six mois pour rcsuudie 
lembouteillage de demandes. Si ce n'est 
pas un succcs pour le Macintosh 
Plus... Les derniers servis auront 
pourtant la satisfaction de se dire que les 
ROM de leur MacPIus seront moins 
'hoguees*. En effct. Tun des problemes 
du Macintosh Plus ticnt a des crrcurs 
inscrites dans ses ROM. Ce qui provoque 
parfois des phenomenes biiarres : un 
utilisateur ayam achctc deux Macintosh 
Plus a quatre mois d'intervallcs pouvait 
ainsi fairc fonctionncr lc genial 
simulateur musical de lecteur de cassettes 
"Jam Session" sur le plus recent, mais 
n'obtenait que des bombes sur lc plus 
ancien... Plus serieusement, ce "bug" 
empechcrait *ur certains Macintosh Plus 
l'utilisation du port SCSI. Les 
possesscurs de ces versions la ne sen 
sont peut-etrc pas encore apenjus, car les 
pcriphcriques SCSI tie sont pas encore 
legion, mais 5a promct encore des 
tristesses £ certains pour demain. 
Pour parcr a ces ennuis (qui empechaicnt 
aussi certains programmes comme 4c 
Dimension de tourner), Apple a corrigc 

ces erreurs par des "patches' incorpores 

dans de nouvelles versions du systeme et 
du Finder. On en ctait ainsi en juillet a 
ia version du Finder, et a la 3.2c du 
Systeme (disqucttc Pom's 25). Pour la 
nouvelle imprimante LaserWriter Plus, ce 

Eont des compoKunt* foumis par des 

sous-traitants qui se sont avfrfs 
defectueux et ont causf quelqucs ennuis a 
ses utilisatcuis. Apple France attend 
sagement la resolution de lous ces 
problemes pour 1'importer chez nous. 
Dire que certains sirateges inconscients 

revent encore sans rire de developper les 
programmes les plus denses ct les plus 
longs jamais realises pour les joujoux de 
la guene des ctoilcs version Initiative de 
Defense Strategtque... 
Sur lerre, et plus precisemenl dans la 
galaxie Apple, nn continue a ne pas 
soiubier dans la monotonic. Avec des 
extensions, des disques durs et des 
programmes, comme s'il en pleuvait. 

Memoire : jamais assez 

Le Macintosh Plus dispose cn standard 
dime memoire vive d'un Mega-octet. 
Mais, elle peut etrc facilement quadruplec 
en rem pi ant les banettes contenant les 
"puces" de 256Kbits par des puces d'un 
Mega-bit. C'esi un des arguments de 
verire ri' Apple. Quand ? Quand ces super 
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puces scront disponibles k prix 
raisonnables. Cc n'csi pas le cas. et 
d'apres les specialistes, il faudra encore 
pademer, car ks puces d'un Mega ne 
Son! encore fournics qu'en pctites 
quantitis et 3t prix importanls, Mais, 
comme les utilisateurs de Macintosh 
sont des enfanls gates, ils n'aiment pas 
patienter. Les constructcurs d'extension 
Font parfaitemenl compris et se battent 
pour olfrir des extensions maisons... 
L'impaUence n'a pas de prix... Chez P. 
Ingenieric avee MacMega Plus et 
pour 9 369 Francs, on dispose de quatre 
barrcltes de 512Ko (realises, e'est vrai 
avee une ires belle technologic de 
montages de composanls en surface). On 
trouve encore des extensions ehez JCR, 
bapiisccs Megalot (7 240 Francs pour 
2 Megas). An* fitats-Unis. on trouve 
deja chez Micro Conversions des 
extensions (bapiisees Plus'Plus) j 4 
Mcgas pour 1400 dollars. 

Stockagc des donnees : 
toujours plus 

On vous l'avait dil : depuis que lc Mac 
dispose dune mleriace SCSI, les disqucs 
durs sc bousculent a son connecteur. 
Mention paniculiere a ceux proposes par 
Pro App. : on peut lei relief aussi bien 
a la prise lccleur d'un simple Mac, a la 
prise SCSI d'un Mac plus, qua un Apple 
Hi Et, en prime, ils scrvent de spoolers 
pour 1 'impress ion. Prix modcrc's : 995 
dollars pour 20 megas et 795 pnur 10. 
Les prix baisseut : le Paradise Mac 
20 importe par Micro Connection 
est ainsi disponible chez nous pour 
lltiUU Francs. Alpha Systemes 
importe les disques durs internes Micah 
(25 309 Francs pour 20 Megas) et 
externes HD20 (17 671 Francs). Prix 
bien plus inteVessant chez IEF qui vend 
son Mac Turbo disk interne de 20 
Megas pour 16 485 Francs. 

Crex Technology a developpe le 
Turbo Line, un disque eleclroniquc (il 
s'agit en fait d'une memOire vive qui 
rests en permanence alimentee) 
particulierement rapide, car il n'y a pas 
d'acces disque. Prix : 5 930 Francs pour 
1 Mega, 1 1 480 Francs pour 3 Megas. 
Pour I'hcure, le ruban bleu du disque dur 
est detenu par l'AST 4000 et ses 74 
Megas, Dommage que cctte Rolls du 
stockage soit si chdre : pths de 70 000 
Francs. 

Une sauvegarde pour disque dur d une 
capacitf de 20 Mega-octets sur cassette 
numerique, le Storm 20 est proposee 
clicz DIF electronic pour 19 600 
Francs. 

Roseau x : dn nouveau 

Du disque dur au serveur de reseau, il n'y 
a parfois que l'cpaisscur d'un logicicl* 
C'esi le cas avee Asmodte d'ACT. Cet 



utilitairc, qui s'installc dans lc menu 4 
du Macintosh permet, a distance, et sous 
AppleTalk d'acceder aux fichiers stockes 
sur la disquette ou le disque dur d'un autre 
Macintosh 

La gratide nouveaute', en matiere de 
rcseaux, e'est TOPS, compatible avee 
AppleTalk, encore distribue par Micro 
Connection La rdponse ii bien des 
problbmes d'incc-mpatibilite, cc rdscau 
local permet de faire panager des ftchiers 
et des periphcriqucs par des Maes, tnais, 
aussi des IBM PC ou compatibles. Pour 
un prix ties raisonnable, car le coflt de 
connection est de 2 060 Francs par 
Macintosh et 5 634 par PC ou 
compatible (il faut une carte). On n'a pas 
fini d'entendre parler de TOPS. 

Unix 

L'unc des nouveautcs annoncees par 
Jean-Louis Gassce, e'est 1'adoption de 
systemes sous Unix qui sera disponible 
des 1087 pour le Macintosh. Pour cela, 
Apple a achetf la technologic 
developpee par Cadmus. L'adoption 
dUnix pcrmcttra d'implantcr lc futur Mac 
haute de gamme modulaire sur le marchc 
de la station de travail scientifique. A 
Tcmarquer un indice : Apple propose 
depuis pen aux Etats-Unis 
Mac Workstation. Un programme 
permettant de se relier a une uniti 
centrale en eliminant ['emulation j usque 
la obligatoire des tenninaux DEC VT 
IDG ou IBM 127K, mais en ennservanf 
la facilitc du Mac de ses menus et de scs 
Fenetres. Ce programme destine a des 
non tcchnicicns d'acceder aux 
programmes dc 1'untte centrale. 11 
comprend le source, le logiciel MacHost 
(source pour systcme Sexploitation Unix 
V et VMS) et une documentation. Sa 
licence d utilisation dans un programme 

review a 1500 dollars. 

Gestion de bases 
de donn£es 

Controls X, qui a divorce* d'avec 
Version Soft, sort enfin CX 500, 

revolution relationnclje, muliifiehicr et 

parametrable de MacBase. J'atlendrai 
d'avoii vu lourner la version definitive 
pour en dire plus. Soul at Freres 
importcnl Ovtrvue 2, Cette version 
est particulierement rapide et simple, 
Prix : 3 320 Francs, Blyth Software 
a soni une nouveiie version d'Omnis 3 

e'est Onmis 3 Plus A noter que ee 
programme s'est tianquilleriieiit iustalle 
comme la meilleure base de donnees pour 
Mac (et aussi la plus afire ct la moins 
'boguee'). Dans la nouveiie version, des 
champs pour d*S heures avee possibility 
de calculs sur heure, des champs de textc 
pouvant comportcr plusieurs lignes avee 
passage a la lignc aulomatiquc, la 
possibilite de creer des bandes de 



defilement pour passer rapidemcnt a la 
fin des donnees, 60 nouvtlles macros, la 
possibilite d'avoir des fichiers dc 160 
Mcgas, la possibilite dc lancer depuis 
Omnis d'autres programmes pour le Mac, 
des sauvegardes automatiqucs, etc. Ornnis 
est importe en France par K A 
in for ma t i q u c. A rcmarquer enfin, 
lamelioration de Filevision, l'un des 
premiers programmes pour le Mac. avee 
liLisiiicsb Filcvi^iun. Cctte dcini&rc 
version permet notammcnt 1'importation 
dc dessins dc MacPaint, MacDraw, 
MacUralE, ou dimages numensces, ainsi 
que le traitement graphique de donnees 
crtfes dans File, Omnis 3, Jazz, Excel, 
etc. 

Revoila les integres 

Programmes integres, ou programmes 
relies par switcher ? On se croirait 
revenu un an en arriere. au moment oil la 
querclle faisait rage cntre Lotus, qui avait 
sorti Jazz -son programme integTanl 
plusieurs applications- et Microsoft, 
sortant Excel, un programme integrable. 
Leg revnici tnus deui en piste. 

Lotus son la nouveiie version 1A de 
J azz pour le Macintosh Plus. Vitesse 
accrue, capacile de iraiteroeni plus 
imporlflnte, &ur disquettt KOOKo- En 
pjime, une serieusc baisse : Jazi, ne 
coute plus que 3 500 Francs. 

Microsoft, qui s'ciait affichc comme 
1'ennemi des integres, met la demiere 
mam a MicWorki, La revue 
britannique Practical Computing a 

pu mettre la main sur une version de test 
et la... tester. Conclusions ; une base dc 
donnees semblable a File, tnais sans 
possibilite d'y ineorporer des 
graphiques, un programme de 
communications simple, un tableur 
puissant (9999 rangees sur 255 
colonnes) mais limit!, avee 50 
functions, cl la possibilite dc Convciti] 
les ChiffreS en graphiques (mais avee peu 
dc types dc graphiques), cl surtout un 
tres bon traitement de texte avee 
notamment la possibilite d'y dessiner 
des ligncs, des cereles, des canes. On 
peut aussi y concevoir des documents 
plus Urges que 1'ecran, qui scront 
imprimes en largeur, recuperet des 
documents MacWrite, ete. MacWorks 
devrait etre vendu moins de 300 dollars 
aux Iitats-Unis. 

Des traitements 
de texte en pagaille 

La decision d'Apple de ne plus livrer 
systdmaiiquement MacWrite avee le Mac 
continue & susciter la creation de 
traitement de texte. Microsoft se 
prepare aussi k sortir une nouveiie 
version de Word, avee corrcctcur 
d'orthographe incorpore, traitement 
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d'idees style Think Tank, lui aussi 
inCoipoic, generation aulumaliquc 
d'index et de tables des matieres, etc. En 
France, A CI lancers £i la rentree Writer 

Plus. Un traitement de texte multi- 

fenetrcs, pcrmcttant de realiser des 
mailings, avec plusicurs colunnes, 
tcs^rc et indexation automatiques. Mac 
Author, k traitement dc tcxtc avec 
fcuiJles de style, possibilite d'amalgamer 
les graphiques au texte, espacement 
reglable, etc. dont j'avais paile dans 
cctte rubrique est maintenant importe 
chez nous par Italsoft. Prix : 2 312 
Francs. 

Aux Etats-Unis, on trouve chez Icon 
Review, le traitemeni de UXte 
MultiWritc, un MacWritc 
multi-lenetres integrant un traitement 
d'idees, un compteur de earacteres. etc. 
pour 80 dollars. 

Nouvcaute d'importance, Think Tank 
de Living Videotex! a desormais un 
sucecsseur. C'est More. II offie en plus 
la possibilite d'il I usurer graphiqucmcnt 1c 
cheminement des idces par des 'arbres' 
Lc programme comprend aussi un 
calculateur integre additionnant les 
nombres enires. Si ce programme, qui 
sera vendu 300 dollars, esc aussi 
revnlutinnnaire que l'avait ele, en son 
temps, "Dunk Tank, ca promct. 

Editique 

C'cst lc nouvcau nam, pas tics beau, 

pour traduire ce que les Americains 

appellenl Desktop publishing, tt qui est 

en fail de l edition electronique. C'est 

toujours la grande mode pour le 
Macintosh. Concept Publishing 
Systems a sorti Adnet. Le systeme 
complct comprend un Macintosh equipe 
d un disque dur interne de 10 Megas, et 
specialement configure", une tablette 
graptiiquc et une LaserWriter. Prix : 
17000 dollars. 

Plus abordablc. Glue dc Solutions 
lot- offte pour 49 dollars la possibilite 

de transferer facilemeni dans 
PageMaker ou Ready Set Go des 
graphiques crecs dans Excel ou Jazz. 
Ccs images peuvent etre rappelees et 
transferees dans le programme d'edition 
par couper/collcT. Prcciscmem, une 

nouvelle version -la 3.0- de R«ady Set 
Go est en preparation avee possibilite 

de travailler stir plusieurs documents, 

nombre dc pages accru, et automatisation 
de certatnes lonctions de conception de 
documents. 

Un drink ? 

On a pu apprccier, dons la chateur 
d'AppIe Expo, Mae Drink sur le stand 
de Micro Valley, Le logieiel 
AultjMac de Fro Funuu pilotanl uu 
Mac reiie a des bouteilles perraettait de 



doser des cocktails. L'cnsemble est 
seiieux. II se compose d'mi Mae, d un 
Apple I] sans lecteurs, et de cartes 
interface. Le logieiel est ecrit en Prolog 
IA. U permet de commander des 
experiences de chimie, Stectricite, 
robutique ct dc pilotcr un systeme a 
electro vannes, un bras artlcule, ou... un 
train electrique. Une telle debauche 
technologique pour un train electrique, 
c'est un peu de l'overkill, non ? 

Cote Apple // 

Alpha Systetnes importe une scric de 
nouveautes pour 1'Apple {(, Parmi elles : 
Kyan, un Pascal sous Prodos avec 
facilitcs d'utilisalion to nip arables a 
Unix, routines graphiques, etc. pour 
1 234 Francs ; Unimate, un logieiel 
pour lecieur de 800Ko permerrant 
d'utiliser ce lecteur avec le DOS 3.3, lc 
Pascal et le CPM poui 580 Francs ; ct la 
carte Checkmate avec processeur 16 
bits 65C816 pour 3 150 Francs. 
Apple distribuc Extasie, un logieiel 
de dessin pcrmettant de melanger dans 
une mime image les 16 coulcurs 
dispnnibles et la Ires haute -resolution 
graphiquc noir ct blanc dc 560 points 
par ligne. On peul y conslruire des 
rectangles et ellipses, on dispose d'une 
loupe, d*un aerographe, les sorlies 
peuvent s'effectuer en couleurs sur une 
iuipihuaute Iiuagewiitei II. Piix : 699 
Francs. 

Citizen, distribue par Geveke, a 
cone ii tine interface permettant de retier 
unc dc scs impriniantcs (souvent bon 
marche'l a un Apple //. Prix : 1 000 
Francs. 

Beagle Bros, un des pionniers de la 
programmation pour Apple //, a 
developpe Macro Works, un ensemble 
d'amcliorations pour Appleworks 
cofflprenant notamtnent des macros, la 

possibilite d'impression en colonne, etc. 
Prix : 35 dollars. 

Et des traitements 
de texte 

Multi Scribe de Styleware est un 

traitement de texte utilisant la douhle 
haute rcsolutiuu graphiquc, tr'fea 
semblable a MacWrite pour le Mac. 
Comprenant minis un editeur de 
earacteres. Prix 60 dollars. 
L'uu des antcLrcb des traitemeuls de texte 
pour le IL Format 8u d'Elite 
Software peut maintenant incorporer 
des formulcs mathematiques. Grace a 
Format 40 Scientific. 

Toujours IBM 

Cette fois, c'est le lie qui peut lire et 
ecrire des fichiers compatibles IBM 
grSce a une cane baptist Envoy, et 
concue par Asky aux F.tats-Unis. La 



carte pent controler les lecteurs 5 polices 
1M ct 3 pouccs 1/2 Apple, inais aussi 
des lecteurs IBM, y compns celui de 1,2 
Megas de l'AT. En reliant un lecteur 
compatible JBM & 1'Apple, et grace a un 
logieiel de conversion, on obtient des 
fichiers pouvant etre relus sur un IBM. 
Le prix de la carte n'est que de 180 
dollars, avee le logieiel, mais sans It 
lecteur IBM. Selon ses promoteurs, le 
systems pennel ainsi i des employes 
dune societe d'emponer chez eux des 
disque lies de donnees IBM et de les relire 
tt les Tetravailler ehez eux sui leur 
Apple. Alleluia! 

Rectification 

Dans lc dernier numero de Pom's, il 
fallait bicn evidemtnent liie Pixel 
Studio, i. ia place de Mac Palette. 
Pixel Studio, c'est bien le nam dc 
l'cnsemble graphiquc couleur pouT le 
Mac. 

Adresses 

Alpha Systemcs - 29, Bd Cambctta 
38000 Grenoble - Tel. : 76 43 39 97 
P.IngcnUrie 226, Bd Raspail 
75006 Paris - Tel: 43 21 93 36 
JCR ■ 5S, rue Notre Dame de Lorette 

75009 Paris - Tel. : 42 62 19 SO 

Pro App - 1475 S. Bascom Avenue 

Campbell CA 95008 

Micro Connection 

103/105, rue du Chateau 

92100 Boulogne - T61. : 48 25 83 83 

IEF - 217. quai Stalingrad 

92130 Tssy lea Moulincaux 

Tel. : 45 57 14 14 

Crex Technology - 34, rue Poncelet 

75017 Paris - Tel. : 42 67 80 46 
1)1 F Electronic 

94, Bd du Montpamassc 
75014 Paris - Tel. : 43 21 43 65 
ACI - 6, avenue Franklin Roosevelt 
75008 Paris - Tel. : 43 59 89 55 
Sotilal Freres 

45/47, rue dc la division Lecleic 
94250 Gentilly - Tel. : 47 40 00 20 

Ilalsoft - 14, rue Vauvenargues 

75018 Paris 

Icon Review 

PO Box 2566 Monterey 

CA 93942 

Concept Publishing System 

126 Monroe St Beaver Dam - WI 53916 

Pro-Form a - 14, rue Mattel 

75010 Paris - Tel. : 45 23 25 05 
Geveke Electronique 

2 a 18 rue des Peupliers 

92000 Nanterrc - Tel. : 47 SO 96 96 

Beagle Bros 

3990 Old Town Avenue 

San Diego CA 92110 

Styleware ■ 6405 Hill croft Suite 

201 Houston Texas 77081 

Elite Software 

4 Hawthylands Drive, Hailsham / ( 
Fast Sussses RN271I1P,, IlfC 
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Bon de commande 



Disquettes 



HAIFA source (cf. Pom's n° 5) a 60,00 F 

II-BASIC (cf. Pom's n" 8) a 150,00 F 

MUSIC , (cf. Pom's n" 10) J 80,00 F 

DISK-MANAGER. , (cf. Pom's U j a 450,00 F 

BASICIUM (cf. Pom's a 13) .. - a 150,00 F 

E.P.E. 5.0 (cf. Pom's n" 23) a 200,00 F 

Kchange F.P.F.. 5.0 (cf. Pom's n* 23) a 80,00 F 

PASCAL (cf. Pom's n" 15) a 80,00 F 

MAX (Mnniteur etenriu) (cf. Pom's n° 18) a 150,00 F 

DOMINOS (cf. Pom's n° 19) a 80,00 F 

P-FORMAT ][, P-POLICE ][..... (cf. Pom's n" 21) a 200,00 F 

COGO (cf. Pom's n" 21) „.. a 150,00 F 

LUDOFOGTC (cf.pageS) a 80,00 F 

Recneils 

N°l, r«cu«U des revues 1 u 1 a 140,00 F 

Disquettes d'accompagnement 1 a 4 a 200,00 F 

N*2, recueii des revues 5 a 8 I 140,00 F 

Disquettes d'accompageement 5 a 8 a 200,00 F 

N*3, recueil des revues 9 a 12 ........... a 140,00 F 

Disquettes d'accompagnement 9 a 12 a -200,00 F 

Revues, disquettes 

Revues 4 7 8 (n'9ipuise) a 35,00 F 

Revues- 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 a 40,00 F 

Disquettes Apple II, //e, ffa 

1/2 3 4 5 6 7 8 9 10 11 12 13 a 60,00 F 

14 15 16 17 lg 19 20 21 22 23 24 25 

Disquettes Macintosh 

14/15/16 groupdes a 150,00 F 

17 18 19 20 21 22 23 24 25 a 80,00 F 

Mac 'A' a 30,00 F 

MacAstuces a 200,00 F 

"Raccouiei" a 200,00 F 

AbonncmcntS Pour 6 num£ros a partir du n j I 

Abonnement a la revue seuk ........... a 200,00 F 

Aboitnement revue + disquettes Apple II, He, Ik a 500,00 F 

Abouuetnent revue + disquettes Macintosh a 600,00 F 

Total TTC : 

Supplement avion hots CEE : 15.00F par numero etfou disquette : 



Montant dti reglement : 



Envoyei ce bon etvotre reglement a : EDTTTCWS MF.V, 64 rue des Chantiers 7S(XX) VERSAILLES 

Nom : 

Adresse : 
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Programmes, Trues, Astuces, Initiation 

Apple ][+,//e,//e+,//c 




Basic, Pascal, Assembleur... 



.ssembleui 



